[编程申请]：求一个绘制梁轴线的程序

[复制链接]

ss1025

发表于 2005-3-8 17:38:14 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

如果，图中已经有梁线，如何实现选两根梁线即可绘出轴线，并且，指定轴线的两个端线，轴线可以延伸到端线呢？
我只完成了第1步，请问如何实现第2步“延长”？
(defun c:x (/ os pt1 pt2 s1 ds1)
  (princ "\n梁轴线绘制程序")
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (setq os (getvar "osmode"))
  (setvar "osmode" 679)
  (setq pt1 (getpoint "\n请选择第1根梁线：")
pt2 (getpoint pt1 "\n请选择第2根梁线：")
  )
  (setq s1 (ssname (ssget pt1) 0))
  (setq ds1 (/ (distance pt1 pt2) 2))
  (command "offset" ds1 s1 pt2 "")
  (setq s2 (entlast))
  (command "change" s2 "" "p" "layer" "dote" "")  ;dote 是我的轴线层
  (setvar "osmode" os)
  (command "undo" "e")
  (setvar "cmdecho" 1)
)

轴线, command, setvar