[编程申请]：选择数字(能框选)，则在数字的基准点产生一个边长为该数字值的矩形

lengliqun · 发表于 2005-3-26 22:48:51

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

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

×

求LSP程序：选择数字(能框选)，则在数字的基准点产生一个边长为该数字值的矩形

zxq0220 · 发表于 2005-3-27 20:07:29

最初由 lengliqun 发布
[B]求LSP程序：选择数字(能框选)，则在数字的基准点产生一个边长为该数字值的矩形 [/B]

xyp1964 · 发表于 2005-3-27 20:11:14

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;选择数字(能框选)，则在数字的基准点产生一个边长为该数字值的矩形
(defun c:test ()
  (setq SS (ssget '((0 . "TEXT")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq leng (/ (atoi (dxf 1 (entget s1))) 2)
   pt (dxf 10 (entget s1))
   pt1  (list (- (car pt) leng) (- (cadr pt) leng))
   pt2  (list (+ (car pt) leng) (+ (cadr pt) leng))
)
(command "rectang" pt1 pt2)
  )
  (princ)
)
[/php]

lengliqun · 发表于 2005-3-27 20:42:13

呵呵，两位大侠的LSP都能用，感谢ing......能否再要求将矩形中心
用200长的十字交叉线标记，谢谢。

xyp1964 · 发表于 2005-3-27 21:02:09

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;选择数字(能框选)，则在数字的基准点产生一个边长为该数字值的矩形
(defun c:test ()
  (setq SS (ssget '((0 . "TEXT")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq leng (/ (atoi (dxf 1 (entget s1))) 2)
   pt (dxf 10 (entget s1))
   pt1  (list (- (car pt) leng) (- (cadr pt) leng))
   pt2  (list (+ (car pt) leng) (+ (cadr pt) leng))
)
(xyp_szx pt2 100)
(command "rectang" pt1 pt2)
  )
  (princ)
)
[/php]

lengliqun · 发表于 2005-3-27 21:33:41

有问题啦，标记被放在矩形的右上角，不是形心位置，请改改。

xyp1964 · 发表于 2005-3-27 21:48:27

其实可以自己改改：[php]
(defun c:test ()
  (setq SS (ssget '((0 . "TEXT")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq leng (/ (atoi (dxf 1 (entget s1))) 2)
   pt (dxf 10 (entget s1))
   pt1  (list (- (car pt) leng) (- (cadr pt) leng))
   pt2  (list (+ (car pt) leng) (+ (cadr pt) leng))
)
(xyp_szx pt 100)
(command "rectang" pt1 pt2)
  )
  (princ)
)[/php]

lengliqun · 发表于 2005-3-27 21:57:09

标记长度为0吗？大侠好小气噢，偶都找不着了，能不能改成200长啦。

xyp1964 · 发表于 2005-3-27 22:05:03

设捕捉了吧？还是眼神不好？呵呵……

[php]
(defun c:test ()
  (cmdla0)
  (setq SS (ssget '((0 . "TEXT")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq leng (/ (atoi (dxf 1 (entget s1))) 2)
   pt (dxf 10 (entget s1))
   pt1  (list (- (car pt) leng) (- (cadr pt) leng))
   pt2  (list (+ (car pt) leng) (+ (cadr pt) leng))
)
(xyp_szx pt 100)
(command "rectang" pt1 pt2)
  )
  (cmdla1)
)
[/php]

lengliqun · 发表于 2005-3-27 23:45:58

取消捕捉后可以用了，谢啦。

zh_6531394 · 发表于 2005-3-29 11:05:38

能否在把原来的数字删除

xyp1964 · 发表于 2005-3-29 12:38:54

直接用 erase 删除吧……

lengliqun · 发表于 2005-3-30 19:28:47

求lsp程序，选择数字(能框选)，则在该数字的基准点产生一个直径为比该数字值大300 的圆。

zxq0220 · 发表于 2005-3-30 19:47:14

最初由 lengliqun 发布
[B]求lsp程序，选择数字(能框选)，则在该数字的基准点产生一个直径为比该数字值大300 的圆。 [/B]

楼主要的程序：

xyp1964 · 发表于 2005-3-30 21:36:54

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(defun c:test ()
  (cmdla0)
  (setq SS (ssget '((0 . "TEXT")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq leng (/ (atoi (dxf 1 (entget s1))) 2)
   pt (dxf 10 (entget s1))
   rad  (+ leng 300)
)
(mkla"中心线"3)
(xyp_szx pt 100)
(mkla"圆"4)
(command "circle" pt rad)
  )
  (cmdla1)
)
[/php]

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

[编程申请]：选择数字(能框选)，则在数字的基准点产生一个边长为该数字值的矩形

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

相关帖子

Re: [编程申请]：选择数字(能框选)，则在数字的基准点产生一个边长为该数字值的矩形

浏览过的版块