[求助]：写的一个小程序，有问题，哪位帮调一下

wxl1981807 · 发表于 2005-8-30 10:36:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

是关于坐标点
(defun c:tx()
(setq b (entsel ))
(setq c (entget (car b)))
  (setq d (assoc 13 c))
  (setq da (cdr d))
  (setq dx (car da))
  (setq dy (cadr da))
  (setq e (assoc 14 c))
  (setq ea (cdr e))
  (setq ex (car de))
  (setq ey (cadr de))
  (princ dx )
  (princ dy )
  (princ ex )
  (princ ey )
  (if (= ey dy) (princ "好") (= ey dy))
  (setq d2 (list dx dy 0))
  (setq e2 (list ex ey 0))
  (setq m  (list (/ (+ dx dex) 2) (+ dy  80)))
  (command "move" da  e2 )
  )

hyx_lyn · 发表于 2005-8-30 10:59:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

大致看了一下有几处错误

(defun c:tx ()
  (setq b (entsel));在这里加上提示
  (setq c (entget (car b)))
  (setq d (assoc 13 c))
  (setq da (cdr d))
  (setq dx (car da))
  (setq dy (cadr da))
  (setq e (assoc 14 c))
  (setq ea (cdr e))
  (setq ex (car ea));此处变量应是ea
  (setq ey (cadr ea));此处变量应是ea
  (princ dx)
  (princ dy)
  (princ ex)
  (princ ey)
  (if (= ey dy)
(princ "好")
(= ey dy);这里是不是要把ey赋值为dy，如果是应该是(setq ey dy)
  )
  (setq d2 (list dx dy 0))
  (setq e2 (list ex ey 0))
  (setq m (list (/ (+ dx dex) 2) (+ dy 80)));这果的变量m、dex是作什么用的，变量dex未定义
  (command "move" da e2)
)

wxl1981807 · 发表于 2005-8-30 11:15:53

谢谢二楼的朋友，不怕麻繁的给我标出来，真的很感谢，

hyx_lyn · 发表于 2005-8-30 11:56:27

你说是根据一点坐标，另一点对齐这一点，那这两点是在一个图元上还是在不同的图元上

如果在一个图元上那直接更改对象属性就可以了

wxl1981807 · 发表于 2005-8-30 13:59:26

哪位知道寻找，并读取最近标注点的程序,

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：写的一个小程序，有问题，哪位帮调一下

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子