我自己寫的建構線程式，幫我解決一下問題

lead009

下面這些是我在用建構線抓位置用的

原本都是自己畫一個圓，然後再點兩邊的端點畫出建構線(垂直)

在這段程式中，我連續使用了兩次xline。會這樣是因為我希望即便是程式執行到一半，就算按了esc顏色還是會維持在原來的圖層。

 

不知道是不是這段程式在xline的地方可以做些什麼樣的簡化??

另外我希望說可以在這段程式結束後，會在旁邊圖面的旁邊出現一段文字來顯示"rr  平行距離"

 

 

 

(defun C:11()
   (setvar "CMDECHO" 0)
   (setq cen (getpoint "\n指定<中心>"))
   (setq rr (getdist"\n平行距離: "))
   (setq p1 (polar cen 0 (/ rr 2)))
   (setq p2 (polar cen pi (/ rr 2)))
   (command "xline" "V" p1 "")
   (command "chprop" (entlast) "" "C" 4 "")
   (command "xline" "V" p2 "")
   (command "chprop" (entlast) "" "C" 4 "")
   (prin1)
)

 

 

 

另一個是複製偏移的建構線，也是都弄不好，還請幫我看看

(defun c:oo ()
    (setvar "CMDECHO" 0))
    (command "xline" "o")
  (prin1)
)

crazylsp

是不是说构造线的颜色和当问题图层的颜色不一样呢还是不知道你在说的什么意思，你能说清楚点就好了

ZZXXQQ

复制用COPY命令，偏移用OFFSET命令。

xshrimp

用vla方法建立xline

3. (defun c:xl( / pt1 pt2) (if (and (setq pt1 (getpoint "\n指定第一点:"))(setq pt2 (getpoint pt1 "\n指定第二点:")))  (vla-addxline (vla-get-modelspace (vla-get-ActiveDocument(vlax-get-acad-object)))     (vlax-3d-point (trans pt1  acucs acworld))     (vlax-3d-point (trans pt2  acucs acworld))  ))  (prin1))

(defun c:xl( / pt1 pt2) (if (and (setq pt1 (getpoint "\n指定第一点:"))(setq pt2 (getpoint pt1 "\n指定第二点:")))  (vla-addxline (vla-get-modelspace (vla-get-ActiveDocument(vlax-get-acad-object)))     (vlax-3d-point (trans pt1  acucs acworld))     (vlax-3d-point (trans pt2  acucs acworld))  ))  (prin1))

lead009

crazylsp发表于2010-9-30 9:55:00是不是说构造线的颜色和当问题图层的颜色不一样呢还是不知道你在说的什么意思，你能说清楚点就好了

我主要的問題是想問說，我這段程式。我自己覺得有會冗長繁，不知道是否有更簡便、快速的方法

然後達到相同的效果

lead009

ZZXXQQ发表于2010-9-30 10:33:00复制用COPY命令，偏移用OFFSET命令。

 

我是想問說，"xline"指令裡頭，不是有一個"o"偏移複制嗎。

我想要將它建立成一個快捷鍵，我用了和"xline v"  "xline H"  水平、垂直 建構線一樣的方法設快捷鍵。

但是不知道是哪邊出錯了，總是無法成功。

lead009

xshrimp发表于2010-9-30 10:52:00用vla方法建立xline

复制代码

謝謝你寫了一段程式給我，但是我的程度還不夠，看不懂，哈哈
將來有機會，我再向你討教，謝謝囉~^