[求助]：看看这个ykfsx.lisp是为什么

jeike456

我运行过liispykfsx这个程式后再用其它程式点选插入点运行后就会出参数错误，怎么改一下呢

eachy

2. 
   
3. (defun c:YKFSX (/ a d d1 d2 d3 d4 d5 l p0 p0x p0y p1 p1y p2 p2x p2y p3 p4 p5
   
4.                   pc pcx pcy pd pdx pe pey pf pg pgx ph phx pi pj pjx pjy
   
5.                )
   
6.   (setvar "cmdecho" 0)
   
7.   (setq l (getreal "\n顶料销有效长度:"))
   
8.   (setq d (getreal "\n顶料销直径:"))
   
9.   (setq a (getreal "\n插针孔直径:"))
   
10.   (setq p0 (getpoint "\n选取生成位置:"))
    
11.   (setq p0x (car p0)
    
12.         p0y (cadr p0)
    
13.   )
    
14.   (setq p1y (- p0y (+ l 14))
    
15.         p1 (list p0x p1y)
    
16.   )
    
17.   (if (> a 0)
    
18.     (progn
    
19.       (setq p2x (- p0x (/ a 2))
    
20.             p2y (- p0y 5)
    
21.             P2 (list p2x p2y)
    
22.       )
    
23.       (setq p3 (list (+ p2x a) p2y)
    
24.             d4 (list p2x (+ p2y 15))
    
25.       )
    
26.       (setq p4 (list p2x (- p2y (+ l 4)))
    
27.             p5 (list (+ p2x a) (- p2y (+ l 4)))
    
28.       )
    
29.       (command "layer" "s" "dim" "" "dim" "hor" p2 p3 d4 "%%c<>" "e" "layer"
    
30.                "s" "p8" "" "line" "none" p2 "none" p4 "" "line" "none" p3
    
31.                "none" p5 ""
    
32.       )
    
33.     )
    
34.   )
    
35.   (setvar "osmode" 0)
    
36.   (command "layer" "s" "center" "" "line" p0 p1 "" "layer" "s" "0" "")
    
37.   (setvar "osmode" 550)
    
38.   (setq pc (list (- p0x (/ d 2)) (- p0y 5))
    
39.         pd (list (+ p0x (/ d 2)) (- p0y 5))
    
40.         pcy (cadr pc)
    
41.         pcx (car pc)
    
42.         pdx (car pd)
    
43.   )
    
44.   (setq pe (list pcx (- pcy l))
    
45.         pf (list pdx (- pcy l))
    
46.         pey (cadr pe)
    
47.   )
    
48.   (setq pg (list (- pcx 1) pey)
    
49.         ph (list (+ pdx 1) pey)
    
50.         pgx (car pg)
    
51.         phx (car ph)
    
52.   )
    
53.   (setq pi (list pgx (- pey 4))
    
54.         pj (list phx (- pey 4))
    
55.         pjx (car pj)
    
56.         pjy (cadr pj)
    
57.   )
    
58.   (command "line" "none" pe "none" pc "none" pd "none" pf "" "line" "none"
    
59.            pg "none" ph "none" pj "none" pi "c"
    
60.   )
    
61.   (setq d1 (list (- pcx 20) pcy)
    
62.         d2 (list (- pcx 10) pcy)
    
63.         d3 (list pcx (+ pcy 8))
    
64.         d5 (list pjx (- pjy 8))
    
65.   )
    
66.   (command "layer" "s" "dim" "" "dim" "ver" pi pc d1 "" "ver" pg pc d2 ""
    
67.            "hor" pc pd d3 "%%c<>" "hor" pi pj d5 "%%c<>" "e" "layer" "s" "0"
    
68.            ""
    
69.   )
    
70.   (setvar "clayer" "0")
    
71.   (setvar "osmode" 1)
    
72.   (setvar "cmdecho" 1)
    
73.   (princ)
    
74. )

<br /> (defun c:YKFSX (/ a d d1 d2 d3 d4 d5 l p0 p0x p0y p1 p1y p2 p2x p2y p3 p4 p5<br />                   pc pcx pcy pd pdx pe pey pf pg pgx ph phx pi pj pjx pjy<br />                )<br />   (setvar "cmdecho" 0)<br />   (setq l (getreal "\n顶料销有效长度:"))<br />   (setq d (getreal "\n顶料销直径:"))<br />   (setq a (getreal "\n插针孔直径:"))<br />   (setq p0 (getpoint "\n选取生成位置:"))<br />   (setq p0x (car p0)<br />         p0y (cadr p0)<br />   )<br />   (setq p1y (- p0y (+ l 14))<br />         p1 (list p0x p1y)<br />   )<br />   (if (> a 0)<br />     (progn<br />       (setq p2x (- p0x (/ a 2))<br />             p2y (- p0y 5)<br />             P2 (list p2x p2y)<br />       )<br />       (setq p3 (list (+ p2x a) p2y)<br />             d4 (list p2x (+ p2y 15))<br />       )<br />       (setq p4 (list p2x (- p2y (+ l 4)))<br />             p5 (list (+ p2x a) (- p2y (+ l 4)))<br />       )<br />       (command "layer" "s" "dim" "" "dim" "hor" p2 p3 d4 "%%c<>" "e" "layer"<br />                "s" "p8" "" "line" "none" p2 "none" p4 "" "line" "none" p3<br />                "none" p5 ""<br />       )<br />     )<br />   )<br />   (setvar "osmode" 0)<br />   (command "layer" "s" "center" "" "line" p0 p1 "" "layer" "s" "0" "")<br />   (setvar "osmode" 550)<br />   (setq pc (list (- p0x (/ d 2)) (- p0y 5))<br />         pd (list (+ p0x (/ d 2)) (- p0y 5))<br />         pcy (cadr pc)<br />         pcx (car pc)<br />         pdx (car pd)<br />   )<br />   (setq pe (list pcx (- pcy l))<br />         pf (list pdx (- pcy l))<br />         pey (cadr pe)<br />   )<br />   (setq pg (list (- pcx 1) pey)<br />         ph (list (+ pdx 1) pey)<br />         pgx (car pg)<br />         phx (car ph)<br />   )<br />   (setq pi (list pgx (- pey 4))<br />         pj (list phx (- pey 4))<br />         pjx (car pj)<br />         pjy (cadr pj)<br />   )<br />   (command "line" "none" pe "none" pc "none" pd "none" pf "" "line" "none"<br />            pg "none" ph "none" pj "none" pi "c"<br />   )<br />   (setq d1 (list (- pcx 20) pcy)<br />         d2 (list (- pcx 10) pcy)<br />         d3 (list pcx (+ pcy 8))<br />         d5 (list pjx (- pjy 8))<br />   )<br />   (command "layer" "s" "dim" "" "dim" "ver" pi pc d1 "" "ver" pg pc d2 ""<br />            "hor" pc pd d3 "%%c<>" "hor" pi pj d5 "%%c<>" "e" "layer" "s" "0"<br />            ""<br />   )<br />   (setvar "clayer" "0")<br />   (setvar "osmode" 1)<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )

fsxm

CAD提示：
用户警告: 给保护符号赋值: PI

2. 
   
3.   (setq pi (list pgx (- pey 4))
   
4.         pj (list phx (- pey 4))
   
5.         pjx (car pj)
   
6.         pjy (cadr pj)
   
7.   )
   

<br />   (setq pi (list pgx (- pey 4))<br />         pj (list phx (- pey 4))<br />         pjx (car pj)<br />         pjy (cadr pj)<br />   )<br />