超短线转换成点

Lispboy · 发表于 2018-10-22 12:27:59

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

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

x

本帖最后由 newer 于 2018-10-22 12:35 编辑

(defun c:xdtb_shortln2pnt (/ ss i x #length #midpoint oldpdmode oldpdsize)
(defun *error* (msg)
(princ msg)
(if oldpdmode
(setvar "pdmode" oldpdmode)
)
(mapcar '(lambda (x) (xdrx_object_regen x)) pts)
(xdrx_end)
)
(defun _callback (dynpt)
(mapcar '(lambda (x) (xdrx_object_regen x)) pts)
(princ)
)
(xdrx_begin)
(setq oldpdmode (getvar "pdmode")
oldsize (getvar "pdsize")
)
(if (not #xd_var_global_shortlen)
(setq #xd_var_global_shortlen 0.01)
)
(if (setq val (getreal (xdrx_prompt
"\n输入短线精度<"
#xd_var_global_shortlen
">:"
t
)
)
)
(setq #xd_var_global_shortlen val)
)
(if (and (xdrx_initssget "\n选择要处理的曲线<退出>:")
(setq ss (xdrx_ssget '((0 . "*line,arc,ellipse,circle"))))
)
(progn (setq i 0)
(mapcar '(lambda (x)
(if (equal (xdrx_getpropertyvalue x "length")
0.0
#xd_var_global_shortlen
)
(progn (xdrx_point_make (xdrx_getpropertyvalue x "midpoint"))
(setq pts (cons (entlast) pts))
(xdrx_entity_setpropertiesfrom (entlast) x)
(setq i (1+ i))
(xdrx_entity_delete x)
)
)
)
(xdrx_pickset->ents ss)
)
(xdrx_initget "F")
(while (setq pt (getpoint (xdrx_prompt
"\n处理了"
i
"条曲线，转换成点.[查看(F)]<退出>:"
t
)
)
)
(progn (cond ((= pt "F")
(xdrx_setvar "pdmode" 35)
(xdrx_setvar "pdsize" 0)
(xdrx_pointmonitor "_callback")
)
)
)
)
(xdrx_pointmonitor)
)
)
(xdrx_setvar "pdmode" oldpdmode)
(mapcar '(lambda (x) (xdrx_object_regen x)) pts)
(xdrx_end)
(princ)
)

(defun c:xdtb_shortln2pnt (/ ss i x #length #midpoint oldpdmode oldpdsize) 
  (defun *error* (msg) 
    (princ msg) 
    (if oldpdmode 
      (setvar "pdmode" oldpdmode) 
    ) 
    (mapcar '(lambda (x) (xdrx_object_regen x)) pts) 
    (xdrx_end) 
  ) 
  (defun _callback (dynpt) 
    (mapcar '(lambda (x) (xdrx_object_regen x)) pts) 
    (princ) 
  ) 
  (xdrx_begin) 
  (setq oldpdmode (getvar "pdmode") 
        oldsize   (getvar "pdsize") 
  ) 
  (if (not #xd_var_global_shortlen) 
    (setq #xd_var_global_shortlen 0.01) 
  ) 
  (if (setq val (getreal (xdrx_prompt 
                           "\n输入短线精度<" 
                           #xd_var_global_shortlen 
                           ">:" 
                           t 
                         ) 
                ) 
      ) 
    (setq #xd_var_global_shortlen val) 
  ) 
  (if (and (xdrx_initssget "\n选择要处理的曲线<退出>:") 
           (setq ss (xdrx_ssget '((0 . "*line,arc,ellipse,circle")))) 
      ) 
    (progn (setq i 0) 
           (mapcar '(lambda (x) 
                      (if (equal (xdrx_getpropertyvalue x "length") 
                                 0.0 
                                 #xd_var_global_shortlen 
                          ) 
                        (progn (xdrx_point_make (xdrx_getpropertyvalue x "midpoint")) 
                               (setq pts (cons (entlast) pts)) 
                               (xdrx_entity_setpropertiesfrom (entlast) x) 
                               (setq i (1+ i)) 
                               (xdrx_entity_delete x) 
                        ) 
                      ) 
                    ) 
                   (xdrx_pickset->ents ss) 
           ) 
           (xdrx_initget "F") 
           (while (setq pt (getpoint (xdrx_prompt 
                                    "\n处理了" 
                                    i 
                                    "条曲线，转换成点.[查看(F)]<退出>:" 
                                    t 
                                  ) 
                        ) 
               ) 
             (progn (cond ((= pt "F") 
                           (xdrx_setvar "pdmode" 35) 
                           (xdrx_setvar "pdsize" 0) 
                           (xdrx_pointmonitor "_callback") 
                          ) 
                    ) 
             ) 
           ) 
           (xdrx_pointmonitor) 
    ) 
  ) 
  (xdrx_setvar "pdmode" oldpdmode) 
  (mapcar '(lambda (x) (xdrx_object_regen x)) pts) 
  (xdrx_end) 
  (princ) 
)

kqqt6236 · 发表于 2018-10-22 12:30:05

超短线是不是就是指零长度的线。

newer · 发表于 2018-10-22 12:37:27

kqqt6236 发表于 2018-10-22 12:30
超短线是不是就是指零长度的线。

0长度的曲线，看着是点，但还是曲线实体。
点能做很多其他的事情。

evayleung · 发表于 2018-10-23 00:05:48

谢谢分享，这功能好用。。。。

=^_^= · 发表于 2018-11-4 15:44:51

什么时候能用到这种操作

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

[工具] 超短线转换成点

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

点评