動的ブロック:ssget "_w" による選択

[Vincenzo_O]

全てに
私はlispのneophyteなので忍耐をとります。
私は、紙スペースの特定のポイントに配置された動的ブロックを選択するルーチンを実行しようとしています。そして、変数内のブロックの現在の値を阻害します。
lee mac のそれから変更したコードの下。動作しないし、なぜ理解していない。
皆様のお越しをお待ちしております。


(defun lm:getdynpropvalue (バルク プラップ))
(setqのprp (strcaseのprp)
(vl-some '(lambda (x ) (if (= prp (strcase (vla-get-propertyname x)))))))))) (vlax-get x 'value)))))))))
(vlax-invoke blk 'getdynamicblockproperties) )
)
)

(defun c:02test と x )

(setq ppp (getpoint "\n\tpick High left Corner\t [bleep]: ")

(setq x (nth 0 ppp) )
(setq y (nth 1 ppp)

(setq x1 (+ x 20.72)))
(setq y1 (- y 9.37)

(setq x2 (+ x 3.3)))
(setq y2 (- y 7.85)

(例:setq と (sget "_w" (list x1 y1)))
(= "insert" (cdr (assoc 0)))))
)
(印刷(setq x) (lm:getdynpropvalue))
)
(プライアンス)
)

 

[GP.]

ssget は、オブジェクトではなく、選択グループを返します

 

[Vincenzo_O]

目標を達成するにはどうすればよいですか?

 

[GP.]

オブジェクトからオブジェクトを抽出する構文 ツイートruppo ディ ツイート選挙は次の通りです。 (ssname gsインディッシュ)インデックスは要素を区別する全数で、最初の要素はゼロです。

ですから (ファイル名 gs 0) グループの最初の項目を返します。 (ssname gs 3) 4番目を返します。

この場合、コードの変更 (setq e (ssname (ssget "_w" (list x1 y1) (list x2 y2)))))) 0))選択グループの最初のオブジェクトの名前を返しますが、問題は "captured" オブジェクトが 1 つ以上の場合に発生する可能性があります。選択グループ内のオブジェクトの数を検証するために使用します。 (長さGS)

 

[Vincenzo_O]

グラジ・ミル gp.

私はそれを修正しました il codice tenendo conto delle tue indicazioni e chiarimenti. タット ok adesso.
buone feste a tutti.

(defun lm:getdynpropvalue (空白のprp))
(setqのprp (strcaseのprp)
(vl-some '(lambda (x)) (if (= prp (strcase (vla-get-propertyname x)))))))))))))
(vlax-invoke blk 'getdynamicblockproperties')
)
)

(defun c:02test )
(vl-load-com)

(setq ppp (getpoint "\n\t***\tpick High left Corner\t***n : ")))))

(setq x (nth 0 ppp)) )
(setq y (nth 1 ppp)))

(setq x1 (+ x 22.32))
(setq y1 (- y 9.6))

(setq x2 (+ x 3.3)))
(setq y2 (- y 7.5)))

(setq 選択 (sget "_w" (list x1 y1))))
(setq ent(ssname 選択 0))))
(setq vl-obj ent)
(setq valore (cdr (assoc 0))))))
(setq xx (lm:getdynpropvalue (vlax-ename->vla-object vl-obj) "fornitore")))

(プライアンス)
)

 

[GP.]

助けてくれたと言うと、お声がけば...