这是模仿CASS等高线拟合命令PLIND吗？

树櫴希德

1. (defun c:hqd123 ( / x)
   
2.    (acet-ui-progress "已经完成" 100)
   
3.    (setq x 0)
   
4.    (while (< x 100)
   
5.           (princ (strcat "\n" (itoa x)))
   
6.           (acet-ui-progress -1)
   
7.           (setq x (1+ x))
   
8.    )
   
9.    (acet-ui-progress)
   
10. );;;;;;
    
11. ;选择集与对象名表互转
    
12. (defun cx-ss2en
    
13.   (ss / enlst)
    
14.   (cond
    
15.     ((= (type ss) 'PICKSET)
    
16.       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
    
17.     )
    
18.     ((= (type ss) 'LIST)
    
19.       (setq enlst (ssadd))
    
20.       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
    
21.     )
    
22.     ((='ename(type ss))
    
23.       (ssadd ss)
    
24.     )
    
25.   )
    
26. )
    
27. ;(entget(car(entsel))'("*"))
    
28. 
    
29. (defun  c:plind1 (  /  temp temp1  lst y )
    
30. ;(vla-get-Type  (vlax-ename->vla-object (car (entsel "\n选择多段线:"))) )
    
31. (vl-cmdf "CONVERTPOLY" "h" (ssget "x" '( (0 . "lwpolyline,polyline")  (8 . "dgx")   )) "" )
    
32. 
    
33. (initget 1 "D S F 3S")    (setq temp (getkword "(D)不拟合/(S)2次样条拟合/(3S)3次样条拟合/(F)圆弧拟合] <F>"))
    
34.   
    
35. (setq lst (ssget '( (0 . "polyline")  (8 . "dgx")   )))
    
36. 
    
37. 
    
38. ;(vla-put-Type (vlax-ename->vla-object (car (entsel "\n选择多段线:")))  3)  (vla-Update leaderObj)
    
39. 
    
40. (foreach y  (cx-ss2en lst)
    
41. 
    
42. 
    
43. (cond
    
44. 
    
45.     ((= temp "D") (setq temp1 (vlax-ename->vla-object y))  (vla-put-Type temp1  0) (vla-Update temp1 )   )
    
46. 
    
47.     ((= temp "F") (setq temp1 (vlax-ename->vla-object y))  (vla-put-Type temp1  1) (vla-Update temp1 ))
    
48. 
    
49.     ((= temp "S") (setq temp1 (vlax-ename->vla-object y))  (vla-put-Type temp1  2) (vla-Update temp1 ))
    
50. 
    
51.     ((= temp "3S") (setq temp1 (vlax-ename->vla-object y))  (vla-put-Type temp1  3) (vla-Update temp1 ))
    
52. 
    
53.   )
    
54. 
    
55. )
    
56. (princ)
    
57.   )

(defun c:hqd123 ( / x)<br />    (acet-ui-progress "已经完成" 100)<br />    (setq x 0)<br />    (while (< x 100)<br />           (princ (strcat "\n" (itoa x)))<br />           (acet-ui-progress -1)<br />           (setq x (1+ x))<br />    )<br />    (acet-ui-progress)<br /> );;;;;;<br /> ;选择集与对象名表互转<br /> (defun cx-ss2en<br />   (ss / enlst)<br />   (cond<br />     ((= (type ss) 'PICKSET)<br />       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))<br />     )<br />     ((= (type ss) 'LIST)<br />       (setq enlst (ssadd))<br />       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))<br />     )<br />     ((='ename(type ss))<br />       (ssadd ss)<br />     )<br />   )<br /> )<br /> ;(entget(car(entsel))'("*"))<br /> <br /> (defun  c:plind1 (  /  temp temp1  lst y )<br /> ;(vla-get-Type  (vlax-ename->vla-object (car (entsel "\n选择多段线:"))) )<br /> (vl-cmdf "CONVERTPOLY" "h" (ssget "x" '( (0 . "lwpolyline,polyline")  (8 . "dgx")   )) "" )<br /> <br /> (initget 1 "D S F 3S")    (setq temp (getkword "(D)不拟合/(S)2次样条拟合/(3S)3次样条拟合/(F)圆弧拟合] <F>"))<br />   <br /> (setq lst (ssget '( (0 . "polyline")  (8 . "dgx")   )))<br /> <br /> <br /> ;(vla-put-Type (vlax-ename->vla-object (car (entsel "\n选择多段线:")))  3)  (vla-Update leaderObj)<br /> <br /> (foreach y  (cx-ss2en lst)<br /> <br /> <br /> (cond<br /> <br />     ((= temp "D") (setq temp1 (vlax-ename->vla-object y))  (vla-put-Type temp1  0) (vla-Update temp1 )   )<br /> <br />     ((= temp "F") (setq temp1 (vlax-ename->vla-object y))  (vla-put-Type temp1  1) (vla-Update temp1 ))<br /> <br />     ((= temp "S") (setq temp1 (vlax-ename->vla-object y))  (vla-put-Type temp1  2) (vla-Update temp1 ))<br /> <br />     ((= temp "3S") (setq temp1 (vlax-ename->vla-object y))  (vla-put-Type temp1  3) (vla-Update temp1 ))<br /> <br />   )<br /> <br /> )<br /> (princ)<br />   )