畫一條簡單的直線，無法成功。

lead009 · 发表于 2010-9-26 22:21:00

我想要使用者決定兩個，然後用line指令畫出一條直線。

一般我們在cad的line指令下，會先要求你點一個原點，再點終點來建立一條直線

這個時候不是都會出現一條長長的虛線嗎，在自己寫lisp的時候，如何讓那條虛線也跑出來

還有一個問題就是我寫的程式不知道為什麼都不會變色，還會出現錯誤，說函數被取消

(defun C:aa()
(setvar "CMDECHO" 0)
(setq p1(getpoint))
(setq P2(getpoint))
(command "line" p1 p2)
(command "chprop" (entlast) "" "C" 5 "")
(prin1)
)

另外我還有一個小問題就是

PROMPT 跟PRINT 都是用來顯示文字的

請問差別在哪裡???

qcw911 · 发表于 2010-9-26 22:34:00

(defun C:aa()
(setvar "CMDECHO" 0)
(setq p1(getpoint))
(setq P2(getpoint))
(command "line" p1 p2 "")
(command "chprop" (entlast) "" "C" 5 "")
(prin1)
)

就差一个空格呵呵

masterlong · 发表于 2010-9-26 22:37:00

(setq P2(getpoint p1))

lead009 · 发表于 2010-9-27 20:34:00

謝謝兩位大大的解說，我的兩個問題都解決了。

但是還有一個地方不太懂

PROMPT 跟PRINT 都是用來顯示文字的

請問差別在哪裡???

ZZXXQQ · 发表于 2010-9-27 20:54:00

PROMPT仅显示文字信息，适用于双屏幕系统。

有时PROMPT显示有滞后现象。

johnwang99 · 发表于 2010-9-27 21:31:00

学习了

lead009 · 发表于 2010-9-27 22:45:00

恩，謝謝各位。

changchangyouyu · 发表于 2010-9-28 11:20:00

长知识了，这里高人不少啊！

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

[基础] 畫一條簡單的直線，無法成功。