求助一个LSP命令

HEDY221311

学习lisp几天，今天试着写了一个 生成圆孔及中心线，并且生成块的语句。可是并不能生成图块，请各位哥哥姐姐能够指导。
语句如下：
defun c:k (); 绘孔
  (princ "请选择一点")
  (setq pt1 (getpoint))
  (setq md (getdist pt1 "\ndia:"));要求输入螺栓大小值
  (setq k1 command "circle" pt1 "d" (+ md 1.5 )) ;完成画圆
  (setq pt2 (polar pt1 0 (+ (/ md 2) 5.75)))
  (setq pt3 (polar pt1 pi (+ (/ md 2) 5.75)))
  (setq pt4 (polar pt1 (/ pi 2) (+ (/ md 2) 5.75)))
  (setq pt5 (polar pt1 (* pi 1.5) (+ (/ md 2) 5.75)))
  (setq k2 command "line" pt2 pt3 "")
  (setq k3 command "line" pt4 pt5 "")
  (setq sss (list k1 k2 k3))
  (setq ss (getvar "cdate"))
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (command "block" ss pt1 sss "")
  (setvar "osmode" os)
)

Andyhon

2. 
   
3. 
   
4. (defun c:k (); 绘孔
   
5. 
   
6.   (setq os (getvar "osmode"))
   
7.   
   
8.   (princ "请选择一点")
   
9.   (setq pt1 (getpoint)
   
10.         ssK (ssadd)  
    
11.   )
    
12.   (setq md (getdist pt1 "\ndia:"));要求输入螺栓大小值
    
13.   (setvar "osmode" 0)
    
14.   (command "circle" pt1 "d" (+ md 1.5 )) ;完成画圆
    
15.   (ssadd (entlast) ssK)
    
16.   (setq pt2 (polar pt1 0 (+ (/ md 2) 5.75)))
    
17.   (setq pt3 (polar pt1 pi (+ (/ md 2) 5.75)))
    
18.   (setq pt4 (polar pt1 (/ pi 2) (+ (/ md 2) 5.75)))
    
19.   (setq pt5 (polar pt1 (* pi 1.5) (+ (/ md 2) 5.75)))
    
20.   (command "line" pt2 pt3 "")
    
21.   (ssadd (entlast) ssK)
    
22.   (command "line" pt4 pt5 "")
    
23.   (ssadd (entlast) ssK)
    
24.   (setq ss (getvar "cdate"))
    
25.   (command "block" ss pt1 ssK "")
    
26.   (setvar "osmode" os)
    
27. )
    

<br /> <br /> (defun c:k (); 绘孔<br /> <br />   (setq os (getvar "osmode"))<br />   <br />   (princ "请选择一点")<br />   (setq pt1 (getpoint)<br />         ssK (ssadd)  <br />   )<br />   (setq md (getdist pt1 "\ndia:"));要求输入螺栓大小值<br />   (setvar "osmode" 0)<br />   (command "circle" pt1 "d" (+ md 1.5 )) ;完成画圆<br />   (ssadd (entlast) ssK) <br />   (setq pt2 (polar pt1 0 (+ (/ md 2) 5.75)))<br />   (setq pt3 (polar pt1 pi (+ (/ md 2) 5.75)))<br />   (setq pt4 (polar pt1 (/ pi 2) (+ (/ md 2) 5.75)))<br />   (setq pt5 (polar pt1 (* pi 1.5) (+ (/ md 2) 5.75)))<br />   (command "line" pt2 pt3 "") <br />   (ssadd (entlast) ssK)<br />   (command "line" pt4 pt5 "")<br />   (ssadd (entlast) ssK)<br />   (setq ss (getvar "cdate"))<br />   (command "block" ss pt1 ssK "")<br />   (setvar "osmode" os)<br /> )<br />

HEDY221311

Andyhon 发表于 2012-3-15 11:07

谢谢大侠，原来需要添加到集，认真学习了。

HEDY221311

Andyhon 发表于 2012-3-15 11:07

请问一下为什么做成块了自动消失了呢？我不明白

Andyhon

  (command "block" ss pt1 ssK "")
  (command "insert" ss pt1 1 1 0)   ;add this line
  (setvar "osmode" os)

HEDY221311

Andyhon 发表于 2012-3-15 13:18
(command "block" ss pt1 ssK "")
  (command "insert" ss pt1 1 1 0)   ;add this line
  (setvar "os ...

谢谢，按照你的方法，已经解决

haiyunzhou

学习了 非常感谢