请帮忙看看这个程序，CAD10版上不好用

kexiya123

我以前有很多下载的lisp程序，用在07版CAD上就很好用，不用跳出以下2个图片（见附图），但是换成10版后，就老是要跳出这个框框，不胜其烦，能不能想办法让其不跳出来，是什么原因呢？因为还有其他程序也是这样的，大侠们帮忙看看，谢谢！

lxw320

我只是复制出来   给不想下载的人看

1. ;    =============================================
   
2. ;    |             截断线自动绘制软件            |
   
3. ;    |         版本: V1.1   作者: 尉迟俊岭       |
   
4. ;    =============================================
   
5. (defun C:tt(/ lay pt1 pt2 dis x1 pt3 pt4 pt5 pt6 ss ptt scale)
   
6.   (setvar "CMDECHO" 0)
   
7.   (setq lay (getvar "clayer"))
   
8.   (command "color" "bylayer")
   
9.   (command "layer" "m" "jdx" "c" "m" "jdx" "")
   
10.   (setq scale (getreal "\nScale<1>:"))
    
11.   (if (= scale nil) (setq scale 1))
    
12.   (setq pt1 (getpoint "\nFirst point:"))
    
13.   (setq pt2 (getpoint pt1 "\nSecond point:"))
    
14.   (setq ang (angle pt1 pt2))
    
15.   (setq dis (distance pt1 pt2))
    
16.   (setq x1 (/ (- dis (* 2 scale)) 2))
    
17.   (setq pt3 (polar pt1 ang x1))
    
18.   (setq pt4 (polar pt1 ang (+ x1 (* 2 scale))))
    
19.   (setq pt5 (polar pt3 (+ ang 1.32582) (* 2.0616 scale)))
    
20.   (setq pt6 (polar pt4 (- ang 1.81577) (* 2.0616 scale)))
    
21.   (setq ptt (polar pt1 (- ang (/ pi 2)) (* 1 scale)))
    
22.   (command "pline" pt1 "w" "0" "0" pt3 pt5 pt6 pt4 pt2 "")
    
23.   (setq ss (entlast))
    
24.   (command "copy" ss "" pt1 ptt)
    
25.   (command "layer" "s" lay "")
    
26.   (princ)(princ)
    
27. )      
    

;    =============================================<br /> ;    |             截断线自动绘制软件            |<br /> ;    |         版本: V1.1   作者: 尉迟俊岭       |<br /> ;    =============================================<br /> (defun C:tt(/ lay pt1 pt2 dis x1 pt3 pt4 pt5 pt6 ss ptt scale)<br />   (setvar "CMDECHO" 0)<br />   (setq lay (getvar "clayer"))<br />   (command "color" "bylayer")<br />   (command "layer" "m" "jdx" "c" "m" "jdx" "")<br />   (setq scale (getreal "\nScale<1>:"))<br />   (if (= scale nil) (setq scale 1))<br />   (setq pt1 (getpoint "\nFirst point:"))<br />   (setq pt2 (getpoint pt1 "\nSecond point:"))<br />   (setq ang (angle pt1 pt2))<br />   (setq dis (distance pt1 pt2))<br />   (setq x1 (/ (- dis (* 2 scale)) 2))<br />   (setq pt3 (polar pt1 ang x1))<br />   (setq pt4 (polar pt1 ang (+ x1 (* 2 scale))))<br />   (setq pt5 (polar pt3 (+ ang 1.32582) (* 2.0616 scale)))<br />   (setq pt6 (polar pt4 (- ang 1.81577) (* 2.0616 scale)))<br />   (setq ptt (polar pt1 (- ang (/ pi 2)) (* 1 scale)))<br />   (command "pline" pt1 "w" "0" "0" pt3 pt5 pt6 pt4 pt2 "")<br />   (setq ss (entlast))<br />   (command "copy" ss "" pt1 ptt)<br />   (command "layer" "s" lay "")<br />   (princ)(princ)<br /> )      <br />

danxingpen

command里面的
color换成.-color
layer换成.-layer

kexiya123

问题依然没得到解决啊！希望各位大侠援助！谢谢

kexiya123

另外如果其他lisp程序里有要输出文字的，则会跳出选择当前文字样式的图框，不知是哪里出了问题？

kexiya123

大侠们，该出手了！

fl202

试了下，没出现你说的现象。你换个图试试。

kexiya123

我看看，是不是系统有问题

kexiya123

kexiya123 发表于 2016-5-23 09:22
我看看，是不是系统有问题

问题得以解决，是10版本LISP问题