求个任意100mm长角度线代码

lzg8877 · 发表于 2012-5-30 07:22:37

正常下: line --> 选取基点 --> <(角度数值) ---> 长度数值还有个条件非正交才能画出
有那位大侠帮助写一个感激

lzg8877 · 发表于 2012-5-30 07:27:17

希望能实现不用切换正交

Andyhon · 发表于 2012-5-30 08:16:31

本帖最后由 Andyhon 于 2012-5-31 10:44 编辑

(defun C:L100 ()
(setvar "AutoSnap" 7)
(setvar "OrthoMode" 0)
(setq pt (getpoint "\n选取基点: ")
vv (getangle pt "指定角度: ")
p2 (polar pt vv 100)
)
(entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 p2)))
)

lzg8877 · 发表于 2012-5-30 21:47:02

用用试试谢谢

lzg8877 · 发表于 2012-5-30 21:59:04

请问能改进吗进行代码时捕入捉没了

Andyhon · 发表于 2012-5-30 22:57:32

本帖最后由 Andyhon 于 2012-5-31 10:44 编辑

程序未涉捕捉

i.e.
(SetVar "OsMode" 39)

自动捕捉设置改用
(setvar "AutoSnap" 7)

lzg8877 · 发表于 2012-5-31 23:00:00

其实我上班时试　着改改　可以用了　感谢呀

gao051525 · 发表于 2012-6-3 19:24:00

不知道耶，帮求解！

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

求个任意100mm长角度线代码

相关帖子