[求助]：有一个小程序 帮忙看一下

gucci218

我写了两个修改圆半径的lsp，第一个能使用，第二个却不成，刚刚学lsp，问题比较菜，请哪位大侠指点一下

gucci218

接上

lijiao

(list 40 new_rr)的结果是普通表，(cons 40  new_rr)的结果是关键表,即点对.

Underway

(defun c:CHGRAD()
(setvar "cmdecho" 0)
(setq en (entsel "选取欲修改半径的圆:"))
(setq new_rr (getreal "\n输入新半径:"))
(setq entdate (entget (car en)))
;(setq old_rr (cdr (assoc 40 entdate)))
(setq ent_date (subst (cons 40 new_rr) (assoc 40 entdate) entdate))
(entmod ent_date)
(prin1)
)

xyp1964

2. [FONT=courier new](defun c:test008 ()
   
3.   (setq        ss  (ssget '((0 . "CIRCLE,ARC")))
   
4.         rad (UREAL 7 "" "\n新半径" rad)
   
5.         i   -1
   
6.   )
   
7.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.     (sub_upd s1 40 rad)
   
9.   )
   
10.   (princ)
    
11. )[/FONT]

[FONT=courier new](defun c:test008 ()<br />   (setq        ss  (ssget '((0 . "CIRCLE,ARC")))<br />         rad (UREAL 7 "" "\n新半径" rad)<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (sub_upd s1 40 rad)<br />   )<br />   (princ)<br /> )[/FONT]

gucci218

谢谢3楼和4楼的兄弟了，看来我对list和cons 的理解不对，我以为list组成的列表能替代对象联合属性列表中的自列表，原来他只是个表示普通列表的方式，cons则可以实现这个功能，学lisp刚起步，就希望有热心人多指点，感谢了。。。至于5楼的不太明白，而且unreal没定义.

yxpxa

我不能下载你的附件，没爱心币，连帮助别人都做不到吗

blackcary

我也有一个
帮我看看
(defun c:a()
(command "arc"))
(defun c:aa()
(command "area"))
(defun c:ar(/ os)
;;;(setq os (getvar "osmode"))
(command "array"))
;;;(setvar "osmode" os))
(defun c:bc()
(command "block"))
(defun c:cc(/ o1)
(setq o1(ssget))
(command "chprop" o1 "" "la"))
(defun c:ce(/ o1)
(setq o1(ssget))
(command "change" o1 "" "p" "e"))
(defun c:cs()
(command "MATCHPROP"))
(defun c:ct(/ o1)
(setq o1(ssget))
(command "chprop" o1 "" "t"))
(defun c:ch(/ o1)
(setq o1(ssget))
(command "change" o1 "" "p"))
(defun c:c()
(command "copy"))
(defun c:cr()
(command "circle"))
(defun c:de()
(command "ddedit"))
(defun c:d()
(command "dist"))
(defun c:dd()
(command "list"))
(defun c:dt()
(command "dtext"))
(defun c:dv()
(command "dview"))
(defun c:e()
(command "erase"))
(defun c:ea()
(command "erase" "all" ""))
(defun c:ee()
(command "pedit"))
(defun c:ex()
(command "explode"))
(defun c:et()
(command "extend"))
(defun c:f()
(command "fillet"))
(defun c:fa()
(command "3dface"))
(defun c:g()
(command "line"))
(defun c:gg()
(command "pline"))
(defun c:h()
(command "hide"))
(defun c:in()
(command "insert"))
(defun c:m()
(command "move"))
(defun c:mi()
(command "mirror"))
(defun c:q()
(command "qsave"))

Underway

要看什么
有着什么样的问题来着
希望人家答什么

zxq0220

最初由 blackcary 发布
[B]我也有一个
帮我看看
(defun c:a()
(command "arc"))
(defun c:aa()
(command "area"))
(defun c:ar(/ os)
;;;(setq os (getvar "osmode"))
(command "array"))
;;;(setvar "osmode" os))
(defun c:bc()
... [/B]

楼主贴的是AutoCAD 2.6版中用的缩写命令定义。