*分解cass高程點即屬性塊*

(defun c:fj()

(prompt "選擇cass高程點!")

(setq s (ssget '((0 . "INSERT"))))

(setq questr (getstring "高程點是否炸開?是[Y]、否[N]:&lt是&gt"))

(setq i 0)

(repeat (sslength s)

(setq nam1 (ssname s i))

(setq slist1 (entget nam1))

(setq km (cdr (assoc 2 slist1)))

(setq crd (cdr (assoc 10 slist1)))

(setq x_sc (cdr (assoc 41 slist1)))

(setq y_sc (cdr (assoc 42 slist1)))

(setq z_sc (cdr (assoc 43 slist1)))

(setq xz_jd (cdr (assoc 50 slist1)))

(setq crhs (cdr (assoc 70 slist1)))

(setq crls (cdr (assoc 71 slist1)))

(setq hjj (cdr (assoc 44 slist1)))

(setq ljj (cdr (assoc 45 slist1)))

(setq jcfx (cdr (assoc 210 slist1)))

(kuai_m km crd x_sc y_sc z_sc xz_jd crhs crls hjj ljj jcfx)

(setq d_l (ssget "l"))

(if (or (= questr "")(= questr "y")(= questr "Y"))

(command "explode" d_l "" "")

);if

(setq nam2 (entnext nam1))

(if (/= nam2 nil)

(progn

(setq slist2 (entget nam2))

(setq chksx (cdr (assoc 0 slist2)))

(if (= chksx "ATTRIB")

(progn

(setq txt (cdr (assoc 1 slist2)));文本內容

(setq ztm (cdr (assoc 7 slist2)));字體名

(setq tc (cdr (assoc 8 slist2)));文本圖層

(setq zb (cdr (assoc 10 slist2)));文本坐標

(setq dq (cdr (assoc 11 slist2)));文本對齊

;(setq dq2 (cdr (assoc 70 slist2)));對齊

(setq dq3 (cdr (assoc 73 slist2)));對齊

(setq gd (cdr (assoc 40 slist2)));高度

(setq kd (cdr (assoc 41 slist2)));寬度

(txt_m txt ztm tc zb dq dq3 gd kd)

);progn

);if

);progn

);if

(command "erase" nam1 "" "")

(setq i (+ i 1))

);repeat

(princ)

)

(defun kuai_m (km crd x_sc y_sc z_sc xz_jd crhs crls hjj ljj jcfx)

(setq crent

(list (cons 0 "INSERT")

(cons 2 km) ;塊名

(cons 10 crd) ;插入點

(cons 41 x_sc) ;X比例

(cons 42 y_sc) ;Y比例

(cons 43 z_sc) ;Z比例

(cons 50 xz_jd) ;旋轉角度

(cons 70 crhs) ;插入行數

(cons 71 crls) ;插入列數

(cons 44 hjj) ;行間距

總結

以上是生活随笔為你收集整理的cass怎么把块打散命令_分解cass高程点即属性块的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。