画正交线（第二版）

newer · 发表于 2018-8-28 12:05:05

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

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

×

根据网友的申请，先确定一个边，然后一直正交画线，
中间可以设置轴、线宽、颜色、回退

相对第一版，增加了线宽和颜色的设置

(defun c:XDTB_DrawOrthoLine (/ clr el g in int len p1 p2 pa2 pt1 pt2 pts tf v1 vec vec1 m_pl_ent
)
(defun *error* (msg)
(princ msg)
(xdrx_entity_delete m_pl_ent)
(redraw)
(setq *error* nil)
(xdrx_end)
)
(defun _jsvec ()
(xdrx_vector_normalize
(mapcar '- (car (reverse pts)) (cadr (reverse pts)))
)
)
(defun _hasclose ()
(if (> (length pts) 1)
"[设置轴(A)/线宽(W)/颜色(S)/闭合(C)/回退(U)]"
""
)
)
(defun _callback (dynpt)
(xdrx_grdraw xd_var_global_ent_color 0 pts)
(xdrx_setpropertyvalue
m_pl_ent "set" pts "constantwidth" #xd_var_global_lw_width "color" xd_var_global_ent_color
)
(xdrx_draworder->top m_pl_ent)
)
(defun _getp2 (p1 / p2 tf)
(setq tf t)
(while (and tf
(xdrx_initget "W S")
(setq p2 (getpoint p1 "\n下一点[线宽(W)/颜色(S)]<退出>:"))
)
(cond ((= p2 "W")
(if (setq w (getreal
(xdrx_prompt "\n输入线宽<" #xd_var_global_lw_width ">:" t)
)
)
(setq #xd_var_global_lw_width w)
)
)
((= p2 "S")
(setq xd_var_global_ent_color (acad_colordlg 256))
)
((= (type p2) 'LIST) (setq tf nil))
)
)
p2
)
(xdrx_begin)
(xdrx_sysvar_push '("osmode" 35) '("orthomode" 0))
(if (not xd_var_global_ent_color)
(setq xd_var_global_ent_color 7)
)
(if (not #xd_var_global_lw_width)
(setq #xd_var_global_lw_width 1.0)
)
(if (and (setq p1 (getpoint "\n起点<退出>:"))
(setvar "lastpoint" p1)
(setq p2 (_getp2 p1))
)
(progn
(xdrx_begin)
(xdrx_sysvar_push '("orthomode" 1))
(setq pts (list (trans p1 1 0) (trans p2 1 0))
vec (_jsvec)
v1 vec
tf t
)
(setq m_pl_ent (xdrx_polyline_make (xd::pnts:ucs2wcs pts)))
(if (<= xd_var_global_ent_color 0)
(setq xd_var_global_ent_color 7)
)
(XD::SYMBOL:Put '#XD-GLOBALVAR-DRAG-FREEORTHO 1)
(while (and tf
(if (/= (_hasclose) "")
(progn (initget "A C U W S") (xdrx_initget "A C U W S"))
t
)
(setq p2 (xd::drag:gmove
p2
(xdrx_prompt
"\r \r下一点"
(_hasclose)
"<退出>:"
t
)
(- xd_var_global_ent_color)
vec
t
"_callback"
)
)
)
(cond ((= p2 "U")
(if (= (length pts) 2)
(xdrx_prompt "\n已经完成所有回退.\n")
(setq pts (xd::list:removeTail pts))
)
(xdrx_grdraw xd_var_global_ent_color 0 pts)
)
((= p2 "C") (setq tf nil))
((= p2 "W")
(if (setq w (getreal
(xdrx_prompt "\n输入线宽<" #xd_var_global_lw_width ">:" t)
)
)
(setq #xd_var_global_lw_width w)
)
)
((= p2 "S")
(setq xd_var_global_ent_color (acad_colordlg 256))
)
((= p2 "A")
(xdrx_grdraw xd_var_global_ent_color 0 pts)
(if (and (setq pt1 (getpoint "\n新轴第一点<退出>:"))
(setq pt2 (getpoint pt1 "\n新轴第二点<退出>:"))
)
(setq vec (xdrx_vector_normalize (mapcar '- pt2 pt1)))
)
)
(t (setq pts (append pts (list (trans p2 1 0)))))
)
(setq vec1 (_jsvec)
p2 (trans (last pts) 0 1)
)
)
(if (> (length pts) 1)
(progn (if (not tf)
(progn
(if (= (getvar "orthomode") 1)
(progn (setq g (xdge::constructor "kCompositecrv3d" pts)
in (xdge::getpropertyvalue g "getinterval" t)
)
(if (xdrx_vector_IsPerpendicular v1 vec1)
(progn (setq int (xd::pnts:orthoproject
(list (car pts))
(last pts)
(nth (- (length pts) 2) pts)
)
)
)
(progn
(setq int (xd::pnts:orthoproject
(list (car pts))
(last pts)
(mapcar '+ (last pts) (xdrx_vector_perpvector v1))
)
)
)
)
(setq len (distance (car int) (car pts)))
(setq el (xdge::getpropertyvalue g "getcurvelist"))
(if (not (xdge::getpropertyvalue (car el) "ison" (car int)))
(setq len (- len))
)
(if (xdge::getpropertyvalue (last el) "ison" (car int))
(setq pa2 (- (last in)
(distance (car int)
(xdge::getpropertyvalue (last el) "hasstartpoint")
)
)
)
(setq pa2 (last in))
)
(xdge::setpropertyvalue g "setinterval" len pa2)
(xdge::entity:make g)
(xdrx_setpropertyvalue (entlast) "isclosed" t)
(xdrx_entity_matchprop m_pl_ent (entlast))
(xdrx_entity_delete m_pl_ent)
(setq m_pl_ent (entlast))
)
(xdrx_setpropertyvalue m_pl_ent "isclosed" t)
)
)
)
(xdrx_polyline_compress m_pl_ent t)
)
)
)
)
(xdrx_sysvar_pop)
(setq *error* nil)
(xdrx_end)
(princ)
)

(defun c:XDTB_DrawOrthoLine (/ clr el g in int len p1 p2 pa2 pt1 pt2 pts tf v1 vec vec1 m_pl_ent 
                            ) 
  (defun *error* (msg) 
        (princ msg) 
         (xdrx_entity_delete m_pl_ent) 
        (redraw) 
         (setq *error* nil) 
        (xdrx_end) 
  ) 
  (defun _jsvec () 
    (xdrx_vector_normalize 
      (mapcar '- (car (reverse pts)) (cadr (reverse pts))) 
    ) 
  ) 
  (defun _hasclose () 
    (if (> (length pts) 1) 
      "[设置轴(A)/线宽(W)/颜色(S)/闭合(C)/回退(U)]" 
      "" 
    ) 
  ) 
  (defun _callback (dynpt) 
    (xdrx_grdraw xd_var_global_ent_color 0 pts) 
    (xdrx_setpropertyvalue 
      m_pl_ent "set" pts "constantwidth" #xd_var_global_lw_width "color" xd_var_global_ent_color 
     ) 
    (xdrx_draworder->top m_pl_ent) 
  ) 
  (defun _getp2 (p1 / p2 tf) 
    (setq tf t) 
    (while (and tf 
                (xdrx_initget "W S") 
                (setq p2 (getpoint p1 "\n下一点[线宽(W)/颜色(S)]<退出>:")) 
           ) 
      (cond ((= p2 "W") 
             (if (setq w (getreal 
                           (xdrx_prompt "\n输入线宽<" #xd_var_global_lw_width ">:" t) 
                         ) 
                 ) 
               (setq #xd_var_global_lw_width w) 
             ) 
            ) 
            ((= p2 "S") 
             (setq xd_var_global_ent_color (acad_colordlg 256)) 
            ) 
            ((= (type p2) 'LIST) (setq tf nil)) 
      ) 
    ) 
    p2 
  ) 
  (xdrx_begin) 
  (xdrx_sysvar_push '("osmode" 35) '("orthomode" 0)) 
  (if (not xd_var_global_ent_color) 
    (setq xd_var_global_ent_color 7) 
  ) 
  (if (not #xd_var_global_lw_width) 
    (setq #xd_var_global_lw_width 1.0) 
  ) 
  (if (and (setq p1 (getpoint "\n起点<退出>:")) 
           (setvar "lastpoint" p1) 
           (setq p2 (_getp2 p1)) 
      ) 
    (progn 
      (xdrx_begin) 
      (xdrx_sysvar_push '("orthomode" 1)) 
      (setq pts (list (trans p1 1 0) (trans p2 1 0)) 
            vec (_jsvec) 
            v1  vec 
            tf  t 
      ) 
      (setq m_pl_ent (xdrx_polyline_make (xd::pnts:ucs2wcs pts))) 
      (if (<= xd_var_global_ent_color 0) 
        (setq xd_var_global_ent_color 7) 
      ) 
      (XD::SYMBOL:Put '#XD-GLOBALVAR-DRAG-FREEORTHO 1) 
      (while (and tf 
                  (if (/= (_hasclose) "") 
                    (progn (initget "A C U W S") (xdrx_initget "A C U W S")) 
                    t 
                  ) 
                  (setq p2 (xd::drag:gmove 
                             p2 
                             (xdrx_prompt 
                               "\r                                  \r下一点" 
                               (_hasclose) 
                               "<退出>:" 
                               t 
                             ) 
                             (- xd_var_global_ent_color) 
                             vec 
                             t 
                             "_callback" 
                           ) 
                  ) 
             ) 
        (cond ((= p2 "U") 
               (if (= (length pts) 2) 
                 (xdrx_prompt "\n已经完成所有回退.\n") 
                 (setq pts (xd::list:removeTail pts)) 
               ) 
               (xdrx_grdraw xd_var_global_ent_color 0 pts) 
              ) 
              ((= p2 "C") (setq tf nil)) 
              ((= p2 "W") 
               (if (setq w (getreal 
                             (xdrx_prompt "\n输入线宽<" #xd_var_global_lw_width ">:" t) 
                           ) 
                   ) 
                 (setq #xd_var_global_lw_width w) 
               ) 
              ) 
              ((= p2 "S") 
               (setq xd_var_global_ent_color (acad_colordlg 256)) 
              ) 
              ((= p2 "A") 
               (xdrx_grdraw xd_var_global_ent_color 0 pts) 
               (if (and (setq pt1 (getpoint "\n新轴第一点<退出>:")) 
                        (setq pt2 (getpoint pt1 "\n新轴第二点<退出>:")) 
                   ) 
                 (setq vec (xdrx_vector_normalize (mapcar '- pt2 pt1))) 
               ) 
              ) 
              (t (setq pts (append pts (list (trans p2 1 0))))) 
        ) 
        (setq vec1 (_jsvec) 
              p2   (trans (last pts) 0 1) 
        ) 
      ) 
      (if (> (length pts) 1) 
        (progn (if (not tf) 
                 (progn 
                   (if (= (getvar "orthomode") 1) 
                     (progn (setq g  (xdge::constructor "kCompositecrv3d" pts) 
                                  in (xdge::getpropertyvalue g "getinterval" t) 
                            ) 
                            (if (xdrx_vector_IsPerpendicular v1 vec1) 
                              (progn (setq int (xd::pnts:orthoproject 
                                                 (list (car pts)) 
                                                 (last pts) 
                                                 (nth (- (length pts) 2) pts) 
                                               ) 
                                     ) 
                              ) 
                              (progn 
                                (setq int (xd::pnts:orthoproject 
                                            (list (car pts)) 
                                            (last pts) 
                                            (mapcar '+ (last pts) (xdrx_vector_perpvector v1)) 
                                          ) 
                                ) 
                              ) 
                            ) 
                            (setq len (distance (car int) (car pts))) 
                            (setq el (xdge::getpropertyvalue g "getcurvelist")) 
                            (if (not (xdge::getpropertyvalue (car el) "ison" (car int))) 
                              (setq len (- len)) 
                            ) 
                            (if (xdge::getpropertyvalue (last el) "ison" (car int)) 
                              (setq pa2 (- (last in) 
                                           (distance (car int) 
                                                     (xdge::getpropertyvalue (last el) "hasstartpoint") 
                                           ) 
                                        ) 
                              ) 
                              (setq pa2 (last in)) 
                            ) 
                            (xdge::setpropertyvalue g "setinterval" len pa2) 
                            (xdge::entity:make g) 
                            (xdrx_setpropertyvalue (entlast) "isclosed" t) 
                            (xdrx_entity_matchprop m_pl_ent (entlast)) 
                            (xdrx_entity_delete m_pl_ent) 
                            (setq m_pl_ent (entlast)) 
                     ) 
                     (xdrx_setpropertyvalue m_pl_ent "isclosed" t) 
                   ) 
                 ) 
               ) 
               (xdrx_polyline_compress m_pl_ent t) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (setq *error* nil) 
  (xdrx_end) 
  (princ) 
)

scnjlwb · 发表于 2018-8-28 16:29:14

在AUTOCAD2018X64下，不能连续绘制，什么原因？

xudongchu · 发表于 2018-8-28 12:41:51

你好版主！显示语法错误。

newer · 发表于 2018-8-28 13:18:55

xudongchu 发表于 2018-8-28 12:41
你好版主！显示语法错误。

重新拷贝下，试试

xudongchu · 发表于 2018-8-28 13:35:26

newer 发表于 2018-8-28 13:18
重新拷贝下，试试

已经OK了谢谢是不是又重新修改了？我之前搞了三次都不行。

Lisphk · 发表于 2018-8-28 17:07:24

scnjlwb 发表于 2018-8-28 16:29
在AUTOCAD2018X64下，不能连续绘制，什么原因？

2019下

scnjlwb · 发表于 2018-8-28 17:40:14

问题没有解决，只是鼠标点取的第一点与第二点能生成多段线，之后的不行。

Lisphk · 发表于 2018-8-28 18:19:44

scnjlwb 发表于 2018-8-28 17:40
问题没有解决，只是鼠标点取的第一点与第二点能生成多段线，之后的不行。

2018下

你是怎么加载的呢？保存成LISP文件，APPLOAD它，或者拷贝代码直接到命令行。别在VLISP里面加载。

evayleung · 发表于 2018-8-28 19:53:37

不错哦，功能强大，谢谢

t666666 · 发表于 2018-8-28 22:36:39

很好的插件，试一下！

kqqt6236 · 发表于 2018-8-29 00:04:01

感谢分享。

coverne · 发表于 2018-8-29 07:23:39

不要vlisp加载

scnjlwb · 发表于 2018-8-29 08:22:24

问题已经解决。
确实不能在vlisp下加载，谢谢！

cfc123456 · 发表于 2018-8-30 09:12:49

很好的插件，试一下！

13678642166 · 发表于 2021-3-2 08:24:21

好用，就是按c不闭合不知道为什么

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

画正交线（第二版）

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

点评

点评

点评

点评