动态“云线”

Lispboy · 发表于 2018-4-29 15:16:11

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

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

×

本帖最后由 Lispboy 于 2018-4-29 15:19 编辑

不知道合适的名字起什么，就叫“动态云线”吧，因为做出的结果是云线差不多，但思路不一样。
程序可以实时的调整“圆”的大小，递增递减的“步长”，实时的调整是“添加”或者“擦除”，结果作为“面域”存在，可以查询整体的面积。如果结果想要“多段线”，把代码里面的 ;(xdrx_region->polyline lastent) 前面的;去掉。

(defun c:XDTB_ACLOUD (/ curpnt dynpt lastent m_cir mat pt r val)
(defun *error* (msg)
(xdrx_entity_delete m_cir)
(xdrx_end)
(princ)
)
(xdrx_begin)
(defun _callback (dynpt)
(xdrx_setpropertyvalue m_cir "center" dynpt)
(setq curpnt dynpt)
)
(defun _info ()
(xdrx_prompt "\n当前: *动作=" (if (= #xd_var_global_circle_action "A")
"添加"
"擦除"
) " *步长=" (cond
((= #xd_var_global_circle_buchang
1
)
"10%"
)
((= #xd_var_global_circle_buchang
2
)
"20%"
)
(t
"30%"
)
) "\n"
)
)
(if (not #xd_var_global_circle_radius)
(setq #xd_var_global_circle_radius 10.0)
)
(if (not #xd_var_global_circle_buchang)
(setq #xd_var_global_circle_buchang 1)
)
(if (not #xd_var_global_circle_action)
(setq #xd_var_global_circle_action "A")
)
(if (setq r (getreal (xdrx_prompt "\n初始直径<"
#xd_var_global_circle_radius ">:" t
)
)
)
(progn
(setq #xd_var_global_circle_radius r)
)
)
(xdrx_circle_make '(0 0 0) (/ #xd_var_global_circle_radius 2.0))
(setq m_cir (entlast))
(setq lastent nil
mat (xdrx_matrix_identity 3)
)
(xdrx_sysvar_push '("osmode" 0
"cursorsize" 1
)
)
(xdrx_pointmonitor "_callback")
(while (and
(xdrx_initget "A F E W T")
(_info)
(setq pt (getpoint (strcat (if (not pt)
"\n"
"\r"
) "插入点[A-递增/F-递减/W-步长/E-添加/T-擦除]<结束>:"
)
)
)
)
(cond
((= pt "A")
(setq #xd_var_global_circle_radius (* (atof (strcat "1."
(itoa #xd_var_global_circle_buchang)
)
) #xd_var_global_circle_radius
)
)
(xdrx_setpropertyvalue m_cir "radius" (/ #xd_var_global_circle_radius
2.0
)
)
)
((= pt "F")
(setq #xd_var_global_circle_radius (* (- 1 (* 0.1 #xd_var_global_circle_buchang))
#xd_var_global_circle_radius
)
)
(xdrx_setpropertyvalue m_cir "radius" (/ #xd_var_global_circle_radius
2.0
)
)
)
((= pt "E")
(setq #xd_var_global_circle_action "A")
)
((= pt "T")
(setq #xd_var_global_circle_action "D")
)
((= pt "W")
(xdrx_initget "1 2 3")
(if (setq val (getint (xdrx_prompt "\n输入步长增减百分比[1-10%/2-20%/3-30%]<"
(cond
((= #xd_var_global_circle_buchang
1
)
1
)
((= #xd_var_global_circle_buchang
2
)
2
)
(t
3
)
) ">:\n" t
)
)
)
(progn
(setq #xd_var_global_circle_buchang val)
(_info)
)
)
)
((= (type pt) 'LIST)
(xdrx_curve->region m_cir)
(if (not lastent)
(progn
(setq lastent (entlast))
)
(progn
(if (= #xd_var_global_circle_action "A")
(xdrx_get_union lastent (entlast))
(xdrx_get_subtract lastent (entlast))
)
)
)
(xdrx_circle_make curpnt (/ #xd_var_global_circle_radius 2.0))
(setq m_cir (entlast))
)
)
)
(xdrx_entity_delete (entlast))
;(xdrx_region->polyline lastent)
(xdrx_pointmonitor)
(seetq *error* nil)
(xdrx_end)
(princ)
)

(defun c:XDTB_ACLOUD (/ curpnt dynpt lastent m_cir mat pt r val) 
  (defun *error* (msg) 
    (xdrx_entity_delete m_cir) 
    (xdrx_end) 
    (princ) 
  ) 
  (xdrx_begin) 
  (defun _callback (dynpt) 
    (xdrx_setpropertyvalue m_cir "center" dynpt) 
    (setq curpnt dynpt) 
  ) 
  (defun _info () 
    (xdrx_prompt "\n当前: *动作=" (if (= #xd_var_global_circle_action "A") 
                                    "添加" 
                                    "擦除" 
                                  ) " *步长=" (cond 
                                                ((= #xd_var_global_circle_buchang 
                                                    1 
                                                 ) 
                                                  "10%" 
                                                ) 
                                                ((= #xd_var_global_circle_buchang 
                                                    2 
                                                 ) 
                                                  "20%" 
                                                ) 
                                                (t 
                                                  "30%" 
                                                ) 
                                              ) "\n" 
    ) 
  ) 
  (if (not #xd_var_global_circle_radius) 
    (setq #xd_var_global_circle_radius 10.0) 
  ) 
  (if (not #xd_var_global_circle_buchang) 
    (setq #xd_var_global_circle_buchang 1) 
  ) 
  (if (not #xd_var_global_circle_action) 
    (setq #xd_var_global_circle_action "A") 
  ) 
  (if (setq r (getreal (xdrx_prompt "\n初始直径<" 
                                    #xd_var_global_circle_radius ">:" t 
                       ) 
              ) 
      ) 
    (progn 
      (setq #xd_var_global_circle_radius r) 
    ) 
  ) 
  (xdrx_circle_make '(0 0 0) (/ #xd_var_global_circle_radius 2.0)) 
  (setq m_cir (entlast)) 
  (setq lastent nil 
        mat (xdrx_matrix_identity 3) 
  ) 
  (xdrx_sysvar_push '("osmode" 0 
                     "cursorsize" 1 
                    ) 
  ) 
  (xdrx_pointmonitor "_callback") 
  (while (and 
           (xdrx_initget "A F E W T") 
           (_info) 
           (setq pt (getpoint (strcat (if (not pt) 
                                        "\n" 
                                        "\r" 
                                      ) "插入点[A-递增/F-递减/W-步长/E-添加/T-擦除]<结束>:" 
                              ) 
                    ) 
           ) 
         ) 
    (cond 
      ((= pt "A") 
        (setq #xd_var_global_circle_radius (* (atof (strcat "1." 
                                                            (itoa #xd_var_global_circle_buchang) 
                                                    ) 
                                              ) #xd_var_global_circle_radius 
                                           ) 
        ) 
        (xdrx_setpropertyvalue m_cir "radius" (/ #xd_var_global_circle_radius 
                                                 2.0 
                                              ) 
        ) 
      ) 
      ((= pt "F") 
        (setq #xd_var_global_circle_radius (* (- 1 (* 0.1 #xd_var_global_circle_buchang)) 
                                              #xd_var_global_circle_radius 
                                           ) 
        ) 
        (xdrx_setpropertyvalue m_cir "radius" (/ #xd_var_global_circle_radius 
                                                 2.0 
                                              ) 
        ) 
      ) 
      ((= pt "E") 
        (setq #xd_var_global_circle_action "A") 
      ) 
      ((= pt "T") 
        (setq #xd_var_global_circle_action "D") 
      ) 
      ((= pt "W") 
        (xdrx_initget "1 2 3") 
        (if (setq val (getint (xdrx_prompt "\n输入步长增减百分比[1-10%/2-20%/3-30%]<" 
                                           (cond 
                                             ((= #xd_var_global_circle_buchang 
                                                 1 
                                              ) 
                                               1 
                                             ) 
                                             ((= #xd_var_global_circle_buchang 
                                                 2 
                                              ) 
                                               2 
                                             ) 
                                             (t 
                                               3 
                                             ) 
                                           ) ">:\n" t 
                              ) 
                      ) 
            ) 
          (progn 
            (setq #xd_var_global_circle_buchang val) 
            (_info) 
          ) 
        ) 
      ) 
      ((= (type pt) 'LIST) 
        (xdrx_curve->region m_cir) 
        (if (not lastent) 
          (progn 
            (setq lastent (entlast)) 
          ) 
          (progn 
            (if (= #xd_var_global_circle_action "A") 
              (xdrx_get_union lastent (entlast)) 
              (xdrx_get_subtract lastent (entlast)) 
            ) 
          ) 
        ) 
        (xdrx_circle_make curpnt (/ #xd_var_global_circle_radius 2.0)) 
        (setq m_cir (entlast)) 
      ) 
    ) 
  ) 
  (xdrx_entity_delete (entlast)) 
  ;(xdrx_region->polyline lastent) 
  (xdrx_pointmonitor) 
  (seetq *error* nil) 
  (xdrx_end) 
  (princ) 
)

yuren008 · 发表于 2018-4-29 18:50:15

不错的插件，楼主辛苦了。

wyq20110208 · 发表于 2018-4-30 07:13:27

谢谢分享。。

zyclyl · 发表于 2018-4-30 07:22:11

好厉害的样子

liutong1997 · 发表于 2018-4-30 08:48:00

好好好，不错，谢谢分享

liunian0524 · 发表于 2018-5-2 07:58:40

感谢楼主分享

kiwiairui · 发表于 2018-5-2 08:26:29

感谢分享

liunian0524 · 发表于 2018-5-9 16:49:23

感谢楼主分享

结构攻城狮 · 发表于 2019-6-4 09:23:10

怎么复制代码呀，粘贴到编辑器里全是问号

登录/注册后可看大图

结构攻城狮 · 发表于 2019-6-4 09:26:27

代码解决了，运行：无函数定义: XDRX_ENTITY_DELETE

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

[工具] 动态“云线”

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