求大神指导这个怎么用lisp写，谢谢各位大神了。

helenkatha

选择圆和多义线后，自动生成一条line线，从圆心到多义线的第二个端点，线型为虚线。

helenkatha

我自己的思路是(defun c:kk
        (setq ss(ssget("circle,lwpolyline")))
          (setq yx((if (= (cdr ss) "circle")))
          (set i 0 j 0 )
          (setq i(cdr(assoc 10 yx));取出圆心 x坐标给i
             (setq j(car(assoc 10 yx));取出圆心 x坐标给j
                   (setq k(cdar(assoc 10 yx));取出圆心 y坐标给k
        (setq dd((if (= (cdr ss) "lwpolyline")))
                (set x 0 y 0 )
               找到端点一后+1取第二个端点
                          (setq x(car(assoc  dd)));取出第二端点 x坐标给x
                          (setq y(car(assoc  dd)));取出第二端点 y坐标给y
                根据坐标连线

)但实在有点的地方不会写，也不知道思路对不对

Free-Lancer

可以这样

2. 
   
3. (defun c:tt (/ ss lst)
   
4.   (fy:begin)
   
5.   (if (and (setq ss (ssget '((0 . "circle,lwpolyline"))))
   
6.            (= (sslength ss) 2)
   
7.       )
   
8.     (progn
   
9.       (setq
   
10.         lst (mapcar '(lambda (x)
    
11.                        (if (wcmatch (vla-get-objectname x) "*Circle")
    
12.                          (vlax-get x 'Center)
    
13.                          (vlax-curve-getpointatparam x 1.0)
    
14.                        )
    
15.                      )
    
16.                     (fy:cset->objs)
    
17.             )
    
18.       )
    
19.       (vlax-invoke (fy:acspace) 'AddLine (car lst) (cadr lst))
    
20.     )
    
21.   )
    
22.   (fy:end)
    
23. )

<br /> (defun c:tt (/ ss lst)<br />   (fy:begin)<br />   (if (and (setq ss (ssget '((0 . "circle,lwpolyline"))))<br />            (= (sslength ss) 2)<br />       )<br />     (progn<br />       (setq<br />         lst (mapcar '(lambda (x)<br />                        (if (wcmatch (vla-get-objectname x) "*Circle")<br />                          (vlax-get x 'Center)<br />                          (vlax-curve-getpointatparam x 1.0)<br />                        )<br />                      )<br />                     (fy:cset->objs)<br />             )<br />       )<br />       (vlax-invoke (fy:acspace) 'AddLine (car lst) (cadr lst))<br />     )<br />   )<br />   (fy:end)<br /> )

helenkatha

Free-Lancer 发表于 2014-7-9 14:12
可以这样

这个还是实现不了啊

st788796

helenkatha 发表于 2014-7-9 15:18
这个还是实现不了啊

改一下

1. (defun c:tt (/ ss lst)
   
2.   (if (and (setq ss (ssget '((0 . "circle,lwpolyline"))))
   
3.            (= (sslength ss) 2)
   
4.       )
   
5.     (progn
   
6.       (setq
   
7.         lst (mapcar
   
8.               '(lambda (x)
   
9.                  (if (= (cdr (assoc 0 x)) "CIRCLE")
   
10.                    (cdr (assoc 10 x))
    
11.                    (vlax-curve-getpointatparam (cdr (assoc -1 x)) 1.)
    
12.                  )
    
13.                )
    
14.               (list (entget (ssname ss 0))
    
15.                     (entget (ssname ss 1))
    
16.               )
    
17.             )
    
18.       )
    
19.       (entmakex (list '(0 . "line")
    
20.                      (cons 10 (car lst))
    
21.                      (cons 11 (cadr lst))
    
22.                      '(62 . 1)
    
23.                      '(6 . "HIDDEN");_需先行加载
    
24.                )
    
25.       )
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )

(defun c:tt (/ ss lst)<br />   (if (and (setq ss (ssget '((0 . "circle,lwpolyline"))))<br />            (= (sslength ss) 2)<br />       )<br />     (progn<br />       (setq<br />         lst (mapcar<br />               '(lambda (x)<br />                  (if (= (cdr (assoc 0 x)) "CIRCLE")<br />                    (cdr (assoc 10 x))<br />                    (vlax-curve-getpointatparam (cdr (assoc -1 x)) 1.)<br />                  )<br />                )<br />               (list (entget (ssname ss 0))<br />                     (entget (ssname ss 1))<br />               )<br />             )<br />       )<br />       (entmakex (list '(0 . "line")<br />                      (cons 10 (car lst))<br />                      (cons 11 (cadr lst))<br />                      '(62 . 1)<br />                      '(6 . "HIDDEN");_需先行加载<br />                )<br />       )<br />     )<br />   )<br />   (princ)<br /> )