求助！新手写的代码，有几个问题求指点。

6224jjyy

程序思路，输入圆的周长为<600>，就画1个周长500的圆，和一个周长100的圆弧。并在圆心标注0.6。
同理，输入圆的周长为<4000>，就画8个周长500的圆，并在圆心标注4。

现在主要有3个问题。。
1、直接用AP加载代码不成功，必须进入lisp编辑器，把代码复制进去，才能加载上。什么原因？
2、(command "layer" "m" "@立管" "c" 1 "" "")，这段代码，不能设置图层的颜色，哪里写错了？
3、我想让圆的的标注，保留1位小数(比如是0.6)，下面三行代码，应该怎么改？
如果把系统变量“DIMZIN”改成4，CAD显示是15位小数(如下图所示“0.600000000000000”)。
如果把系统变量“DIMZIN”改成8，CAD显示是整数(如下图所示“0”)。

(setq 圆的周长 (read (rtos 圆的周长 2 1)))  ;转换精度,保留小数点后一位
(setq 圆的标注 (/ 圆的周长 1000))
(command "text" "j" "m" 圆心位置 30 0 圆的标注)
-------------------------------------------------------------------------------------------------------------
(defun c:cc()
(setq 圆的周长 (getint "请输入圆的周长mm :"))
(setq 圆心位置 (GETPOINT "\n指定圆心位置 : "))  
(while 圆心位置
  (if (= (rem 圆的周长 100) 0)
    (command (c1))
    (princ "\n输入错误")
  )
(setq 圆心位置 (GETPOINT "\n指定圆心位置 : "))
))

(defun c1()
(setq AA nil BB nil ang nil)     ;清空参数(必须清空ang)
(setvar "cmdecho" 0)             ;关闭系统响应
(setq 图层 (getvar "clayer"))    ;备份图层
(setq 颜色 (getvar "Cecolor"))   ;备份颜色

(setq AA (/ 圆的周长 500))
(setq BB (rem 圆的周长 500))
  
(command "layer" "m" "@立管" "c" 5 "" "")    ;设置图层（有问题）
(setvar "cecolor" "bylayer")                 ;设置颜色的系统变量

(setq 圆的周长 (read (rtos 圆的周长 2 1)))   ;转换精度,保留小数点后一位
(setq 圆的标注 (/ 圆的周长 1000))
(command "text" "j" "m" 圆心位置 30 0 圆的标注)   ;精度有问题

(repeat AA
(COMMAND "circle" 圆心位置 79.58)
)
  
(cond
((= bb 400)(setq ang (* 360 (/ 400.0 500))))
((= bb 300)(setq ang (* 360 (/ 300.0 500))))
((= bb 200)(setq ang (* 360 (/ 200.0 500))))
((= bb 100)(setq ang (* 360 (/ 100.0 500))))
;(t)可以不要T
)
(COMMAND "arc" "c" 圆心位置 (polar 圆心位置 0 79.58) "a" ang "")
(princ)
(setvar "cmdecho" 1)            ;开启系统响应
(setvar "clayer" 图层)          ;还原图层
(setvar "Cecolor" 颜色)         ;还原颜色
)

6224jjyy

头疼死了。。lisp这么难！写几个简单的代码，总是搞不定，出问题。。
求各路大神的帮助！！！帮忙改一改代码。。思路就是，根据输入值，画圆和圆弧。

xyp1964

2. (defun c:cc ()
   
3.   (setq leng (getint "请输入圆的周长mm: "))
   
4.   (if (= (rem leng 100) 0)
   
5.     (while (setq p0 (getpoint "\n指定圆心位置: "))
   
6.       (c1)
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )
    
11. (defun c1 (/ bb ang)
    
12.   (command "layer" "m" "立管" "c" 5 "" "")
    
13.   (setq        bb  (rem leng 500.)
    
14.         ang (cond ((= bb 400) (* 360 (/ 400.0 500)))
    
15.                   ((= bb 300) (* 360 (/ 300.0 500)))
    
16.                   ((= bb 200) (* 360 (/ 200.0 500)))
    
17.                   ((= bb 100) (* 360 (/ 100.0 500)))
    
18.                   (t 0)
    
19.             )
    
20.         p1  (polar p0 0 79.58)
    
21.   )
    
22.   (command "text" "j" "m" p0 30 0 (rtos (/ leng 1000.) 2 2))
    
23.   (repeat (/ leng 500)
    
24.     (command "circle" p0 79.58)
    
25.   )
    
26.   (if (/= ang 0)
    
27.     (command "arc" "c" p0 p1 "a" ang)
    
28.   )
    
29. )

(defun c:cc ()<br />   (setq leng (getint "请输入圆的周长mm: "))<br />   (if (= (rem leng 100) 0)<br />     (while (setq p0 (getpoint "\n指定圆心位置: "))<br />       (c1)<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun c1 (/ bb ang)<br />   (command "layer" "m" "立管" "c" 5 "" "")<br />   (setq        bb  (rem leng 500.)<br />         ang (cond ((= bb 400) (* 360 (/ 400.0 500)))<br />                   ((= bb 300) (* 360 (/ 300.0 500)))<br />                   ((= bb 200) (* 360 (/ 200.0 500)))<br />                   ((= bb 100) (* 360 (/ 100.0 500)))<br />                   (t 0)<br />             )<br />         p1  (polar p0 0 79.58)<br />   )<br />   (command "text" "j" "m" p0 30 0 (rtos (/ leng 1000.) 2 2))<br />   (repeat (/ leng 500)<br />     (command "circle" p0 79.58)<br />   )<br />   (if (/= ang 0)<br />     (command "arc" "c" p0 p1 "a" ang)<br />   )<br /> )

6224jjyy

xyp1964 发表于 2015-12-6 10:34

非常感谢！！！大爱
我测试一下，很好用。。我再研究研究代码。。再次感谢！