树櫴希德 发表于 2018-2-13 17:33:58

数字文本值替换Z坐标


;;;;;;;;;;;;;;;;;;
(defun 10zu ( e / e)
(cdr(assoc 10(entget e)))
)
;;;;;;;;;;;;;;;;;;
(defun 1zu ( e / e)
(read(cdr(assoc 1(entget e))))
)

(defun c:tt11 ( / lst ent pts pt demj zmj i) ;求平均数
(setq lst (ssget '((0 . "text") (1 . "~*[~'--9]*")   )   ))

(setq i 0)
;(setq zmj 0.000)

(while(< i (sslength lst))

(setq ent (ssname lst i))
(entmod (subst (list 10 (car (10zu ent)) (cadr (10zu ent)) (1zu ent)) (assoc 10(entget ent)) (entget ent)   ))

(setq i (+ i 1))
)
)


小明同学 发表于 2018-2-16 12:08:41

谢谢了

happy336 发表于 2019-10-15 12:03:25

谢谢分享，支持
页: [1]
查看完整版本: 数字文本值替换Z坐标