[求助]：我的程序哪里出错了。

zhouri

(defun c:test()
(setq d (gg d) )
(setq e (entsel "\n选择"))
(setq p1 (getpoint"\n得到基点"))
(setq p2 (list (+(car p1 ) d) (cdr p1)) )
(@cmdla0)
  (setvar "orthomode" 1)
  (setvar "osmode" 0)
(command "move" e "" p1 p2)
(@cmdla1)
(princ )
)

(defun gg (d/dd)
(setq msg "\n平移距离")
(setq bit 0)
(if d
  (setq msg (strcat msg "<" (rtos d) ">")
    bit (* 2 (fix (/ bit 2))))
)
(initget bit "")
(setq dd (getreal msg ))
(if dd
dd
d
)
)
;;;-------------------------------------------
;;;通用子程序
(defun @CMDLA0 ()
  (setq cmdech (getvar "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setq rmode (getvar "regenmode"))
  (setq pw (getvar "plinewid"))
  (setvar "regenmode" 0)
  (setvar "CMDECHO" 0)
  (princ)
)
(defun @CMDLA1 ()
  (setvar "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" rmode)
  (setvar "plinewid" pw)
  (princ)
)
  

程序是按某位大哥的程序写的，我只是自己编一下而已，但怎么就是不对捏。

xyp1964

应该这样：
[php]
(load "xyp_lib")                        ;加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;水平方向定距移动
(defun c:test (/ ss1 pt1 pt2)
  (cmdla0)
  (setvar "osmode" 0)
  (setq no3 (ureal 1 "" "\n平移距离" no3))
  (PROMPT "\n选则物体 : ")
  (while (not (setq ss1 (SSGET))))
  (setq pt1 (GETPOINT "\n起点<退出> : "))
  (if pt1
    (progn
      (while (setq pt2 (getpoint pt1 "\n水平方向<退出>"))
        (if (/= (car pt2) (car pt1))
          (progn
            (if        (> (car pt2) (car pt1))
              (setq pt2 (list (+ (car pt1) no3) (cadr pt1)))
              (setq pt2 (list (- (car pt1) no3) (cadr pt1)))
            )
            (command "move" ss1 "" pt1 pt2)
            (setq pt1 pt2)
          )
        )
      )
    )
  )
  (cmdla1)
)[/php]

zhouri

最初由 zhouri 发布
[B](defun c:test()
(setq d (gg d) )
(setq e (entsel "\n选择"))
(setq p1 (getpoint"\n得到基点"))
(setq p2 (list (+(car p1 ) d) (cdr p1)) )
(@cmdla0)
  (setvar "orthomode" 1)
  (setvar "osmode" 0)
... [/B]

谢谢，这个标准程序你曾经给我写过，但是我就是不明白为什么，我编的就出错。我想你帮我看看究竟是什么问题。

ljpnb

以下两句有问题
  (setq p2 (list (+ (car p1) d) (cadr p1)));_不是cdr,是cadr

(defun gg (d / dd);_不是d/dd,而是d / dd

xyp1964

楼上说得有一定的道理。
但gg函数定义看不懂，或者根本就错误。

(cmdla1)要放到程序的最前面
(cmdla0)要放到程序的最后面

ljpnb

To xyp1964，GG函数与你这句(setq no3 (ureal 1 "" "\n平移距离" no3)) 不是同出一则啊。我觉没什么错。

zhouri

的确是四楼说的问题，谢谢了

gnol

有点复杂,,还是看懂了