求高手帮忙完成多段线随意加关键点的程序

zoubo604

你看看这个吧,10楼的.更HIGH,可以连续加点的.支持多段线用A参数画的圆弧.我顶了10分的.

zoubo604

http://bbs.mjtd.com/forum.php?mo ... F%C9%CF%BC%D3%B5%E3上一个忘记粘链接了.

zsw23

zoubo604 发表于 2011-9-21 15:11
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=51069&highlight=%CF%DF%C9%CF%BC%D3%B5%E3上一个忘记粘 ...

good!要的就是这个，谢了

Gu_xl

zsw23 发表于 2011-9-21 00:03
可以连续加点就好了

稍加改进，连续加点，并且有夹点显示，可以及时看见所加点！

1. (defun c:tt  (/ CMDECHO EN PT ENDEN SS osmode)
   
2.   (setq cmdecho (getvar 'cmdecho))
   
3.   (setq osmode (getvar 'osmode))
   
4.   (setvar 'cmdecho 0)
   
5.   (setvar 'osmode 930)
   
6.   (and
   
7.     (setq en (car (entsel "\n选择多段线:")))
   
8.     (WCMATCH (cdr (assoc 0 (entget en))) "*POLYLINE")
   
9.     (progn
   
10.    (while (setq pt (getpoint "\n打断位置点: "))
    
11.       (setq enden (entlast))
    
12.       (command "_break" en (vlax-curve-getclosestpointto en pt) pt)
    
13.       (setq ss (ssadd))
    
14.       (while (setq enden (entnext enden))
    
15.         (if (not (member (cdr (assoc 0 (entget enden)))
    
16.                          '("ATTRIB" "VERTEX" "SEQEND")))
    
17.           (ssadd enden ss)
    
18.           )
    
19.         )
    
20.       (command "pedit" en "j" ss "" "")
    
21.      (sssetfirst nil (ssadd en))
    
22.       )
    
23.      )
    
24.     )
    
25.   (setvar 'cmdecho cmdecho)
    
26.   (setvar 'osmode osmode)
    
27.   (princ)
    
28.   )
    

(defun c:tt  (/ CMDECHO EN PT ENDEN SS osmode)<br />   (setq cmdecho (getvar 'cmdecho))<br />   (setq osmode (getvar 'osmode))<br />   (setvar 'cmdecho 0)<br />   (setvar 'osmode 930)<br />   (and<br />     (setq en (car (entsel "\n选择多段线:")))<br />     (WCMATCH (cdr (assoc 0 (entget en))) "*POLYLINE")<br />     (progn<br />    (while (setq pt (getpoint "\n打断位置点: "))<br />       (setq enden (entlast))<br />       (command "_break" en (vlax-curve-getclosestpointto en pt) pt)<br />       (setq ss (ssadd))<br />       (while (setq enden (entnext enden))<br />         (if (not (member (cdr (assoc 0 (entget enden)))<br />                          '("ATTRIB" "VERTEX" "SEQEND")))<br />           (ssadd enden ss)<br />           )<br />         )<br />       (command "pedit" en "j" ss "" "")<br />      (sssetfirst nil (ssadd en))<br />       )<br />      )<br />     )<br />   (setvar 'cmdecho cmdecho)<br />   (setvar 'osmode osmode)<br />   (princ)<br />   )<br />

zsw23

Gu_xl 发表于 2011-9-21 22:59
稍加改进，连续加点，并且有夹点显示，可以及时看见所加点！
[c0de=lisp]
(defun c:tt  (/ CMDECHO EN  ...

感谢版主的及时回复

crazylsp

断开再合并就多了个点. 想法很巧

raimo

还是Gu_xl的程序比较简洁...我喜欢

dalin1985

感谢Gu_xl舨主分享程序

加点的时候要是可以拖拽就更完美了

邹锋

Gu_xl 发表于 2011-9-21 22:59
稍加改进，连续加点，并且有夹点显示，可以及时看见所加点！
**** 本内容被作者隐藏 ****

没想到G版也对多线段有很深研究，改天得请教下你关于这方面的