Angelo2449
Guest
皆さんこんにちは。
ウェブからダウンロードしたこのソフトウェアでは、匿名ブロックを作成できます。
ウェブからダウンロードしたこのソフトウェアでは、匿名ブロックを作成できます。
Code:
(defun creablocofr (/ sset は ent_get ent_getu blk を指示します)
(princ "\n seleziona gli oggetti da animare: ")
(setqのsset (ssget))))
(ssetの場合)
(entmake) リスト
'(0 . "ブロック")
'(2 . "*u")
'(70). 1) 1
'(10 0.0 0.0 0.0 0.0)
(setq は 0 を指示します)
(setq ent (ssname sset の指示)))
(一方、int)
(setq ent_get (entget ent)))
(/= (cdr (assoc 0 ent_get) "polyline") (progn)
(setq ent_getu (cdr ent_get)))
(エンデルエント)
(entmake ent_getu )
(progn)
(入るsetq)
enter_getu (cdr ent_get) は、
(/= (cdr (assoc 0 ent_getu)) "seqend")
(setq ent_getu (cdr (entget entu)))))
(entmake ent_getu )
(setq entu (entnext entu)) )
;間
(エンデルエント)
)
お問い合わせ
(setq は 1 を指示します)
(setq ent (ssname sset の指示)))
)
(setq 空白 (entmake)))
(エンメイク)
(コンズ2ブランク)
'(10 0.0 0.0 0.0 0.0)
;progn
お問い合わせ
(「\n il gruppo è stato creato」)
(代表)
(setq 識別子 "000000000")[CODE]生成されたブロックは爆発しません。どのようにして拡張することができますか?
お問い合わせ
; コマンドの終了 createblock
(プライアンス)