2013-05-18 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

炫翔

炫翔(2363673534)于2013-05-18 14-38-25：
怎么会不一样？

炫翔

炫翔(2363673534)于2013-05-18 14-38-31：
结果是一样的

CCarch

杨德标(522073222)于2013-05-18 14-38-41：
[face99.gif]对哦，那个捕捉 经常坏事

炫翔

炫翔(2363673534)于2013-05-18 14-39-13：
(command "line" (LIST 0 0)  (0，5) "")

ysq101

平凡  淡定(120389613)于2013-05-18 14-40-49：
试过了关捕捉，问题依旧

炫翔

炫翔(2363673534)于2013-05-18 14-41-34：
(command "line" (LIST 0 0)  "0,5" "")

ysq101

平凡  淡定(120389613)于2013-05-18 14-41-43：
(setq ent (entget name))
  (setq pt1
(cdr (assoc 10 ent))主要是这段代码的反回值不是

ysq101

平凡  淡定(120389613)于2013-05-18 14-41-50：
不对

炫翔

炫翔(2363673534)于2013-05-18 14-45-26：
(DEFUN C:XX()
(SETQ S1(CAR(ENTSEL)))
(SETQ PO(cdr (assoc 10 (ENTGET S1))))
(SETQ P1(LIST (+ (CAR PO) (cdr (assoc 40 (ENTGET S1)))) (CADR PO)))
(COMMAND "LINE" PO P1 "")
)

炫翔

炫翔(2363673534)于2013-05-18 14-46-59：
拿去试试
(defun c:xx ( / p1 po r s1)
  (setq s1 (car (entsel)))
  (setq po (cdr (assoc 10 (entget s1))))
  (setq r (cdr (assoc 40 (entget s1))))
  (setq p1 (list (+ (car po) r) (cadr po)))
  (command "_.line" "non" po "non" p1 "")
)

炫翔

炫翔(2363673534)于2013-05-18 14-47-41：
[qqimg]{AFFF2646-49F3-3E70-CD20-26C22E1BA9BA}.jpg[/qqimg]

ysq101

平凡  淡定(120389613)于2013-05-18 14-48-16：
我要学到什么时候啊！！！！！[face27.gif]

炫翔

炫翔(2363673534)于2013-05-18 14-48-34：
[qqimg]{644B4B85-4AA3-225E-F373-A7A7B037A32C}.jpg[/qqimg]

炫翔

炫翔(2363673534)于2013-05-18 14-49-06：
用心 总会成功的

炫翔

炫翔(2363673534)于2013-05-18 14-49-18：
学无止境 个人的要求不一样