[编程申请]：（求LSP程序）选定块，则在靠近此块位置标注出此块的名称。附图

lengliqun · 发表于 2004-6-15 13:24:54

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

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

×

（求LSP程序）选定块，则在靠近此块位置标注出此块的名称。附图

maplesu · 发表于 2004-6-15 16:06:39

你是不是需要这样的！
你可以试试！

[PHP]
(defun c:bn()
  (setq tt (getreal "字高： ")
ss (ssget '((0 . "INSERT"))))
  (setq i 0)
  (repeat (sslength ss)
(setq en (ssname ss i))
(setq en_data (entget en))
(setq name (cdr (assoc 2 en_data))
   pt (cdr (assoc 10 en_data)))
(setq pt1 (polar pt 0 (* 3 tt)))
(command "text" pt1 tt 0 name)
(setq i (+ i 1))
)
  )
[/PHP]

lengliqun · 发表于 2004-6-17 15:35:32

OK,建议完成，谢谢。

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

[编程申请]：（求LSP程序）选定块，则在靠近此块位置标注出此块的名称。附图

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

相关帖子

浏览过的版块