carrot1983 发表于 2008-2-13 19:32:00

[求助]如何取得N条线打断后的选择集

<p>如题</p>

xyp1964 发表于 2008-2-13 23:18:00

本帖最后由 作者 于 2008-2-13 23:19:22 编辑

;;; 打断成组
(defun c:test616 ()
(CMDLA0)
(setq s0(entlast)
INT (UINT 7 "" "曲线等分数" INT)
)
(princ "\n选择曲线: ")
(setq ss (ssget '((0 . "*LINE,ARC")))
i-1
)
(setvar "osmode" 0)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (setq ptn (cdr (reverse (cdr (xyp-get-CurveDivNumPtlst s1 int)))))
    (foreach pt ptn
      (command "break" (list s1 pt) "f" pt pt)
    )
)
(xyp-add-Group (SSUNION ss (xyp-SSelEntnext s0))
   (rtos (* (getvar "cdate") 1000000) 2 0)
)
(CMDLA1)
)

王咣生 发表于 2008-2-13 21:08:00

<p>不太明白!</p><p>N条什么线呢?打断后也不会自动就有选择集啊.</p>

carrot1983 发表于 2008-2-14 08:45:00

<p>谢谢院长指点。。。</p>

lichunyu 发表于 2011-11-12 13:39:35

不是很好用   
页: [1]
查看完整版本: [求助]如何取得N条线打断后的选择集