请帮忙

lzy9788

请高手赐教，不知道为什么前面BMP文件看不能，下载后能看清。谢谢了。

龙龙仔

快速建立標註 「標註」工具列:
「標註」功能表: Qdim
指令行: qdim 使用 QDIM 來快速建立一系列的標註。當您要建立一系列的基準線或連續式標註，或要建立一系列圖和弧的標註時，這個指令尤其有用。 選取要產生標註的幾何圖形: 選取要產生標註的物件，再按下 [ENTER] 指定標註線位置，或 [連續式(C)/錯開(S)/基準線(B)/座標(O)/半徑(R)/直徑(D)/基準面點(P)/編輯(E)] 目前的>: 輸入選項或按 [ENTER] 連續式 建立一系列連續式標註。 錯開 建立一系列錯開的標註。 基線式 建立一系列基線式標註。 座標式 建立一系列座標式標註。 半徑 建立一系列半徑標註。 直徑 建立一系列直徑標註。 基準點 設定基準線和座標式標註的基準點。 選取新的基準點: 指定一點 AutoCAD? 會返回前一個提示。 編輯 編輯一系列標註。AutoCAD 會提示您在既有的標註中加入或移除點。 指示移除的標註點，或 [加入(A)/結束(X)] <結束(X)>: 指定一點、輸入 a，或按下 [ENTER] 以回到前一個提示

lzy9788

不方便。

lzy9788

下面的代码可以标注两线之间的，但不能标注更多的 并且线不能是多义线，我现在要标注多个，不分什么线 请教高手： (defun c:qw( / ); ang ang1 co os pt0 pt01 pt1 pt2 pt3 pt4
;pta pta1 ptaa ptb ptb1 ptbb sname ss)
(setvar "cmdecho" 0)
(setq co (getvar "cecolor"))
(setq os (getvar "osmode"))
(setq pt01 (getpoint "输入第一点\n"))
(setq pt02 (getpoint "输入第二点\n" pt01))
(setq ss (ssget "C" pt01 pt02)) (setq ss1name (ssname ss 0))
(setq ss1 (entget ss1name))
(setq pt11 (cdr(assoc 10 ss1)))
(setq pt12 (cdr(assoc 11 ss1)))
(setq ss2name (ssname ss 1))
(setq ss2 (entget ss2name))
(setq pt21 (cdr(assoc 10 ss2)))
(setq pt22 (cdr(assoc 11 ss2)))
(setq pt31 (inters pt01 pt02 pt11 pt12))
(setq pt32 (inters pt01 pt02 pt21 pt22))
(setq ang (angle pt31 pt32))
(if (>= ang pi)
(progn (setq ptaa pt32)(setq ptbb pt31)
(setq ang (- ang pi)))
(progn (setq ptaa pt31)(setq ptbb pt32))
)
(setvar "osmode" 0)
(cond
((= (angle pt01 pt02) 0)
(command "dimlinear" ptaa ptbb "@0,550"))
((= (angle pt01 pt02) pi)
(command "dimlinear" ptaa ptbb "@0,-550"))
((= (angle pt01 pt02) (/ pi 2))
(command "dimlinear" ptaa ptbb "@-550,0"))
((= (angle pt01 pt02) (* pi 1.5))
(command "dimlinear" ptaa ptbb "@550,0"))
);end cond (setvar "cecolor" co)
(setvar "osmode" os)
(setvar "cmdecho" 1)
(princ)
)

lzy9788

有人能搞定吗

龙龙仔

lzy9788发表于2004-3-3 17:52:00不方便。

指的是甚麼?

lzy9788

那样标注不方便，我想按上面图片那样标，点取p1 p2 ，然后求出p1 p2 连线与图元的交点，再依次标注出来。可以搞定吗，多谢了

ljcgq

;=====================================
; 两点连线与线段交点的标注(适用cad2000以上版本)
; ljc 2004.3
;=====================================
(defun c:hk( / p1 p2 p5 qq i os gd ss1 n)
(GRDRAW (setq p1 (getpoint "请选择第一点:") ) (setq p2 (getpoint "请选择第二点:") ) 1 1)
(setq QQ (ssget "C" p1 (POLAR p2 (/ PI 2) 0.000001 ) ) )
(setq i 0 os (getvar "osmode") )
( if (/= "100-1" (getvar "dimstyle")) (command "-dimstyle" "r" "100-1" ) )
(setq gd ( * 5 (getvar "dimtxt") (getvar "dimscale")))
(setq ss1(ssadd))
(repeat (setq n (sslength qq))
(setq p5 (inters p1 p2 (cdr (assoc 11 (entget (ssname qq i )))) (cdr (assoc 10 (entget (ssname qq i) ))) ))
(command "point" p5)
(setq ss1 (ssadd (entlast) ss1))
(SETQ I ( + 1 I))
)
(setvar "osmode" 0)
(command "qdim" ss1 "" (POLAR p5 (/ PI 2) gd ) ) (command "erase" ss1 "")
(setvar "osmode" os)
)

lzy9788

语法错误

龙龙仔

QDIM就能做出你所說的,麻煩你再看清楚指令說明