删圆变十字线

司徒妙嘉

下面是框选,识别圆,以圆心画十字线的lisp代码
但是有个小问题,其中cr是指圆半径,但是我想让十字线长度为半径的60%,cl就是想要的值,但是cl (* cr 0.6)写上,下面的两个LINE中的cr改cl后就报错,不知道有什么问题,谁帮我解释下,需要怎么改才能实现十字线长度为半径的60%

2. (defun c:cct ( / ss n ent enttype cc cr cl)
   
3.   (setq ss (ssget) n 0)
   
4.   (repeat (sslength ss)
   
5.     (setq ent (ssname ss n)
   
6.       enttype (cdr (assoc 0 (entget ent)))
   
7.       cc (cdr (assoc 10 (entget ent)))
   
8.       cr (cdr (assoc 40 (entget ent)))
   
9.       ;cl (* cr 0.6)
   
10.     )
    
11.     (if (= enttype "CIRCLE")
    
12.       (progn
    
13.         (command "LINE" (list (- (car cc) cr) (cadr cc)) (list (+ (car cc) cr) (cadr cc)) "")
    
14.         (command "LINE" (list (car cc) (- (cadr cc) cr)) (list (car cc) (+ (cadr cc) cr)) "")
    
15.         (entdel ent)
    
16.       )
    
17.     )
    
18.     (setq n (1+ n))
    
19. 
    
20.   )
    
21. )

(defun c:cct ( / ss n ent enttype cc cr cl)<br />   (setq ss (ssget) n 0)<br />   (repeat (sslength ss)<br />     (setq ent (ssname ss n)<br />       enttype (cdr (assoc 0 (entget ent)))<br />       cc (cdr (assoc 10 (entget ent)))<br />       cr (cdr (assoc 40 (entget ent)))<br />       ;cl (* cr 0.6)<br />     )<br />     (if (= enttype "CIRCLE")<br />       (progn<br />         (command "LINE" (list (- (car cc) cr) (cadr cc)) (list (+ (car cc) cr) (cadr cc)) "")<br />         (command "LINE" (list (car cc) (- (cadr cc) cr)) (list (car cc) (+ (cadr cc) cr)) "")<br />         (entdel ent)<br />       )<br />     )<br />     (setq n (1+ n))<br /> <br />   )<br /> )

lostbalance

试了下，原版的和改成cl的都没有报错，正常运行。你是不是cl那行前面的分号没有删除？

lifuq1979

没毛病,我只是删掉没用的
(defun c:cct ( / ss n ent enttype cc cr cl)
  (setq ss (ssget '((0 . "CIRCLE"))) n -1)
  (repeat (sslength ss)
    (setq ent (ssname ss (setq n (1+ n)))
      cc (cdr (assoc 10 (entget ent)))
      cr (*(cdr (assoc 40 (entget ent)))0.6)
    )
     (command "LINE" (list (- (car cc) cr) (cadr cc)) (list (+ (car cc) cr) (cadr cc)) "")
     (command "LINE" (list (car cc) (- (cadr cc) cr)) (list (car cc) (+ (cadr cc) cr)) "")
     (entdel ent)
  )
)

司徒妙嘉

lostbalance 发表于 2018-8-11 15:44
试了下，原版的和改成cl的都没有报错，正常运行。你是不是cl那行前面的分号没有删除？

AutoCAD 2018 X64 ENWin10 X64 EN
以下是代码
(defun c:cct ( / ss n ent enttype cc cr cl)
        (setq ss (ssget) n 0)
        (repeat (sslength ss)
                (setq ent (ssname ss n)
                        enttype (cdr (assoc 0 (entget ent)))
                        cc (cdr (assoc 10 (entget ent)))
                        cr (cdr (assoc 40 (entget ent)))
                        cl (* cr 0.6)
                )
                (if (= enttype "CIRCLE")
                        (progn
                                (command "LINE" (list (- (car cc) cl) (cadr cc)) (list (+ (car cc) cl) (cadr cc)) "")
                                (command "LINE" (list (car cc) (- (cadr cc) cl)) (list (car cc) (+ (cadr cc) cl)) "")
                                (entdel ent)
                        )
                )
                (setq n (1+ n))

        )
)

以下是CAD的console反馈
Command: APPLOAD c2cc.lsp successfully loaded.
Command:
Command:
Command: CCT
Select objects: Specify opposite corner: 5 found
Select objects:  ; error: bad argument type: numberp: nil

参数类型错误??

司徒妙嘉

lifuq1979 发表于 2018-8-12 09:05
没毛病,我只是删掉没用的
(defun c:cct ( / ss n ent enttype cc cr cl)
  (setq ss (ssget '((0 . "CIRC ...

为什么会是这样令人匪夷所思的结果?

Andyhon

ref:
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=178013

司徒妙嘉

Andyhon 发表于 2018-8-14 12:04
ref:
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=178013

我竟然没想到,明明看到是些中点,交点!

jin1114

画十字线的时候捕捉没有关吧