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

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

正常下: 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

不知道耶，帮求解！
页: [1]
查看完整版本: 求个任意100mm长角度线代码