[原创]LISP的[复制标高后同时改变标高数字]程序，开源

askthesun · 发表于 2014-2-15 13:14:01

这个不错，自己可扩展，感谢LZ！

ahlb2010 · 发表于 2016-1-13 23:24:39

多谢分享，继续学习。

ahlb2010 · 发表于 2016-1-14 23:38:36

多谢分享，继续学习。

alexmai · 发表于 2017-10-26 19:27:08

本帖最后由 alexmai 于 2017-10-26 19:50 编辑

pxt2001 发表于 2012-7-15 10:49
;;复制标高，标高数字自动修改
(defun c:t ()
;(PXT_ER)

这个标高程序很好用，但想调整功能：

计算后的标高结果，若为正数，想在数字前加上"+"
      即  3.000    （显示为→） +3.000
         0.015    （显示为→） +0.015

--------------------------------
我也知道是改这里，但苦于没找到加前序的函数 “+”

如果能指点一下就更好，谢谢！
         ;; 替换属性文字
         (setq da (entget (entnext en)))
         (setq da (subst (cons 1 txt-n) (assoc 1 da) da))
         (entmod da)
         (entupd en)
         (entupd (entnext en))

curugi · 发表于 2017-12-27 11:27:27

整数不能延续小数点的位数，需要加一个循环

账号		自动登录	找回密码
密码			注册