yangist 发表于 2015-2-4 15:25:50

谁能指导下下面加粗的代码应该怎么写才正确呢,谢谢

(DEFUN C:dtt ( / dim ent txt s s1 n3)
(princ "\n选择标注: ")
(setq dim (ssget "S" '((0 . "DIMENSION")))
             ent (entget (ssname dim 0))
             dsz (cdr (assoc 42 ent))
   )
(setq s (rtos dsz 2 1))
(setq n3 (entget (setq s1 (car (entsel "\n写入数值: ")))))
(entmod (subst (cons 1 s) (assoc 1 n3) n3))
(entupd s1)
(princ)
)

zhaochang71 发表于 2015-2-4 16:09:07

(ssget "S" '((0 . "DIMENSION")))
这句有问题，(ssget ":S" '((0 . "DIMENSION")))

yangist 发表于 2015-2-4 17:10:06

zhaochang71 发表于 2015-2-4 16:09 static/image/common/back.gif
(ssget "S" '((0 . "DIMENSION")))
这句有问题，(ssget ":S" '((0 . "DIMENSION")))
太谢谢了 好了
页: [1]
查看完整版本: 谁能指导下下面加粗的代码应该怎么写才正确呢,谢谢