求相对线绘制角度线

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

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

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

(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

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

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

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

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

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

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

貌似 command就可以完成吧

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

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

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

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

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

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

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

如果选择为空，则执行第二个程序。哪位大师帮合并一下呢？

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

求相对线绘制角度线

最佳答案

点评

评分

浏览过的版块

求相对线 绘制角度线

最佳答案

点评

评分

浏览过的版块

求相对线绘制角度线