这样画矩形的插件该怎么写

快乐王子刚 · 发表于 2016-9-12 14:51:56

也就是说画矩形不用再输入@了，直接输入长，宽就画出矩形。当两个或者多个矩形要同心时，只
需要选择已有矩形就自动同心居中了。

这样画矩形的插件该怎么写

Lispboy · 发表于 2016-9-12 14:51:57

试试，插入点点到封闭的多段线的时候，插入到中心。否则直接插入。

拖动绘矩形（附近居中).gif

(defun c:tt ()
(xdrx_begin)
(xdrx_sysvar_push '("osmode" 33))
(if (not (xd::symbol:get '#xd_var_global_width))
(xd::symbol:put '#xd_var_global_width 100.)
)
(if (not (xd::symbol:get '#xd_var_global_height))
(xd::symbol:put '#xd_var_global_height 50.)
)
(if (setq width (getreal (xdrx_prompt "\n矩形长度<"
(xd::symbol:get '#xd_var_global_width)
">:" t
)
)
)
(xd::symbol:put '#xd_var_global_width width)
)
(if (setq width (getreal (xdrx_prompt "\n矩形宽度<"
(xd::symbol:get '#xd_var_global_height)
">:" t
)
)
)
(xd::symbol:put '#xd_var_global_height width)
)
(xdrx_initget "S")
(initget "S")
(setq e (xdrx_polyline_make (xd::pnt:getrecpnts '(0 0 0)
(xd::symbol:get '#xd_var_global_width)
(xd::symbol:get '#xd_var_global_height)
) t
)
)
(xdrx_hook_tracemouse t)
(xd::drag:simplemove e "\n插入点:" 5 1)
(setq p (xdrx_document->lastpts))
(if (setq ss (xdrx_pickset_getAtPoint (car p) (XD::Doc:GetPickBoxHeight) '((0 . "LWPOLYLINE")(-4 . "&=")(70 . 1))))
(progn
(setq e1 (ssname ss 0)
pmid (xd::geom:get9pt e1 5)
p1 (xd::geom:get9pt e 5)
)
(xdrx_entity_move e p1 pmid)
)
)
(xdrx_hook_tracemouse)
(xdrx_sysvar_pop)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (xdrx_begin) 
  (xdrx_sysvar_push '("osmode" 33)) 
  (if (not (xd::symbol:get '#xd_var_global_width)) 
    (xd::symbol:put '#xd_var_global_width 100.) 
  ) 
  (if (not (xd::symbol:get '#xd_var_global_height)) 
    (xd::symbol:put '#xd_var_global_height 50.) 
  ) 
  (if (setq width (getreal (xdrx_prompt "\n矩形长度<" 
                                        (xd::symbol:get '#xd_var_global_width) 
                                        ">:" t 
                           ) 
                  ) 
      ) 
    (xd::symbol:put '#xd_var_global_width width) 
  ) 
  (if (setq width (getreal (xdrx_prompt "\n矩形宽度<" 
                                        (xd::symbol:get '#xd_var_global_height) 
                                        ">:" t 
                           ) 
                  ) 
      ) 
    (xd::symbol:put '#xd_var_global_height width) 
  ) 
  (xdrx_initget "S") 
  (initget "S") 
  (setq e (xdrx_polyline_make (xd::pnt:getrecpnts '(0 0 0) 
                                                  (xd::symbol:get '#xd_var_global_width) 
                                                  (xd::symbol:get '#xd_var_global_height) 
                              ) t 
          ) 
  ) 
  (xdrx_hook_tracemouse t) 
  (xd::drag:simplemove e "\n插入点:" 5 1) 
  (setq p (xdrx_document->lastpts)) 
  (if (setq ss (xdrx_pickset_getAtPoint (car p) (XD::Doc:GetPickBoxHeight) '((0 . "LWPOLYLINE")(-4 . "&=")(70 . 1)))) 
    (progn 
      (setq e1 (ssname ss 0) 
            pmid (xd::geom:get9pt e1 5) 
            p1 (xd::geom:get9pt e 5) 
      ) 
      (xdrx_entity_move e p1 pmid) 
    ) 
  ) 
  (xdrx_hook_tracemouse) 
  (xdrx_sysvar_pop) 
  (xdrx_end) 
  (princ) 
)

q3_2006 · 发表于 2016-9-12 14:57:31

有4个方向...你想怎么输入法...??

快乐王子刚 · 发表于 2016-9-12 15:00:05

直接输入长回车，宽回车，这样可以做到不？

快乐王子刚 · 发表于 2016-9-12 20:40:45

错误: no function definition: XD::PNT:GETRECPNTS 出现这样的提示是怎么回事

Lispboy · 发表于 2016-9-12 21:40:26

快乐王子刚发表于 2016-9-12 20:40
错误: no function definition: XD::PNT:GETRECPNTS 出现这样的提示是怎么回事

忘记加函数了，你去这个地址拷贝回去。

http://bbs.xdcad.net/thread-705432-1-1.html

快乐王子刚 · 发表于 2016-9-13 14:32:55

Lispboy 发表于 2016-9-12 21:40

把这个加在什么位置呢？

快乐王子刚 · 发表于 2016-9-13 14:38:09

Lispboy 发表于 2016-9-12 21:40

弄好了，谢谢你的分享。

sunyukun · 发表于 2017-6-17 13:43:07

快乐王子刚发表于 2016-9-13 14:38

怎么加载的可以说共享一下吗或者发个全码谢谢

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

[编程申请] 这样画矩形的插件该怎么写

最佳答案

点评