[求助]：垂线的问题

￥夜悸孤枕￥

各位请问怎么画垂线啊 不是水平线的垂线 当斜线的时候怎么画这条斜线的垂线啊 请各位指教

jamscz

用对象捕捉中的捕捉垂足。

xcajcj

最初由 ￥夜悸孤枕￥ 发布
[B]各位请问怎么画垂线啊 不是水平线的垂线 当斜线的时候怎么画这条斜线的垂线啊 请各位指教 [/B]

在命令行键入：
(setvar "snapang" 0.523599)
其中0.523599是角度为30度的斜线的弧度值（30/180*pi）
最后打开正交状态即可绘出斜线的垂线

ssggcc777

2、3楼主的做法都可以，2楼主更简单一些

冰城血

都一样

xcajcj

;以下程序代码实现选取文字TEXT、图块BLOCK、线LINE或屏幕上任选两点，改变SNAP角度方向。
(defun c:lsp_53()
   (setq en (entsel "\n选取线、文字或图块 <[Enter]输入角度>: "))
   (if (/= en nil)
      (progn (setq endata (entget (car en)))
             (setq entyp (cdr (assoc 0 endata)))
             (cond ((= entyp "LINE")   (line_ang))
                   ((= entyp "TEXT")   (text_ang))
                   ((= entyp "INSERT") (text_ang))
                   (t                  (2p_ang))
             )
      )
      (2p_ang)
   )
   (setvar "snapang" ang)
)


(defun line_ang()
   (setq pt10 (cdr (assoc 10 endata)))
   (setq pt11 (cdr (assoc 11 endata)))
   (setq ang (angle pt10 pt11))
)


(defun text_ang()
   (setq ang (cdr (assoc 50 endata)))
)

(defun 2p_ang()
   (setq ang (getangle "\n输入角度值: "))
)

(princ "\n------- C:LSP_53 ---------")
(prin1)

ahlzl

最初由 ￥夜悸孤枕￥ 发布
[B]各位请问怎么画垂线啊 不是水平线的垂线 当斜线的时候怎么画这条斜线的垂线啊 请各位指教 [/B]

这样如何:

ywdywd

6楼的lisp不错。

￥夜悸孤枕￥

谢谢各位大虾  我会好好学习的 终于有一天我也会成为这样的大侠

xcajcj

最初由 ￥夜悸孤枕￥ 发布
[B]谢谢各位大虾  我会好好学习的 终于有一天我也会成为这样的大侠 [/B]

的确，在网上我们会学到很多东西，不过要想系统化，还是多好看一些专业书籍比较好，我贴的那个程序lsp_53.lsp就是一本名为《AutoLISP&DCL基础篇》的程序设计书上录入的，你不妨也买来看一看，很不错哦。

oofy

就是per嘛

￥夜悸孤枕￥

真的很感谢各位的帮助 如果一个人自己想的话 很多的问题也许就是一个小小的节 我们可能一下子转不了弯 大家多说说 马上就明白了 一个人摸索太难了 希望大家把自己摸索的经验告诉我们这些小弟 谢谢了

kknz

我去买鞋，服务生给我量了四道尺寸，结论是要41码3/4的，要定做。。。。
画图讲的是效率，不要把简单问题复杂化，二楼的方法挺好。

yxianfo

首先在“对象捕捉”选项卡中勾选“垂足”，然后在状态栏中打开“对象捕捉”按钮。即可方便地画出垂线。
7楼的方法是可以在不打开“对象捕捉”的状况下画出垂线。
利用上述方法还可以方便地在圆或圆弧上画出垂线。
同意楼上的说法。

dgq0707

各种方法，ucs转换坐标