flytoday 发表于 2012-2-29 23:11:54

求相对线 绘制角度线

请路过的老师帮帮忙谢谢,,,

革天明 发表于 2012-2-29 23:11:55

(defun c:tt ()
(setq        ss(entsel "\n请选择基准线：")
        pt(getpoint "\n请选择基准点：")
        ang (getreal "\n请输入旋转角度：")
        pt1 (cdr (assoc 10 (entget (car ss))))
        pt2 (cdr (assoc 11 (entget (car ss))))
)
(command "line" pt1 pt2 "")
(command "ROTATE" (entlast) "" pt ang)
);end defun

yjr111 发表于 2012-2-29 23:24:17

没看明白什么意思？什么叫批定？

Lisper 发表于 2012-2-29 23:51:23

真服了你了，这么简单的东西，难道你自己都不能写出来吗?最多5行代码就能搞定！你求了那么多程序代码，难道自己就没一点长进么?

byghbcx 发表于 2012-3-1 08:11:18

这个程序没必要来悬赏吧？就是没程序，手绘也没两步呀！

qcw911 发表于 2012-3-1 08:16:11

貌似   command就可以完成吧

革天明 发表于 2012-3-1 08:38:54

如果使用圆周阵列来做这个程序，你能旋转的对象就可以是多个了，而且不限形状，

langjs 发表于 2012-3-1 09:45:40

本帖最后由 langjs 于 2012-3-1 09:46 编辑

手画：点划线命令—端点—端点—确定－旋转命令—选线—确定—选点—输入角度—确定，最多10步完成。
程序：输入命令—选线—选点—输入角度—右键，最多5步完成。
评估：程序提高工作效率1倍。

669423907 发表于 2012-3-7 15:29:03

ljpnb 大师的：

;画角度线（ljpnb）
(defun c:vl()
(setq wsh (Vlax-Get-Or-Create-Object "WScript.Shell"))
(command "line" (setq pt1 (getpoint)))
(Vlax-Invoke-Method wsh 'Sendkeys
(strcat "<" (rtos (if (not (setq ang(getreal "\n输入一个角度")))
(setq ang 45)(setq ang ang ))) "{Enter}"))
(command (getpoint pt1) "")
(princ))

669423907 发表于 2012-3-7 15:33:38

如果选择为空，则执行第二个程序。哪位大师帮合并一下呢？
页: [1] 2
查看完整版本: 求相对线 绘制角度线