[求助]：标注替换程序的制作

zhouri · 发表于 2004-12-12 19:59:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

要求能替换标注，比如本来是400，替换后的位l＝400，如何做。

lsjjm · 发表于 2004-12-13 03:28:10

REFER TO:
[PHP]
(defun c:test ()
  ;(vl-load-com)
  (setq e (car (entsel)))
  (setq b (vlax-ename->vla-object e))
  (vla-put-textoverride b (strcat "l=" (rtos (vla-get-Measurement b))))
)
[/PHP]

zhouri · 发表于 2004-12-14 19:30:49

原来如此简单啊，唉，请问一下，我怎么知道有这些函数的呢，还句话说，如何学习这些函数，有什么好的教程，和好的学习方法，请推荐。

stone0030 · 发表于 2004-12-18 23:04:17

小弟也粘一个
二楼楼主的我看不懂，这个比较简单
[php]
(defun c:test()
  (while
(print "")
(setq obj (entget (car (entsel))))
(setq obj (subst (cons 1 (strcat "l=<>")) (assoc 1 obj) obj))
(entmod obj)
  )
  (princ)
)
[/php]

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

[求助] [求助]：标注替换程序的制作

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块