标注比例更改

yxl88168 · 发表于 2018-3-31 13:05

bssurvey 发表于 2018-3-31 08:04
網址好像有問題，無法鏈結

我再10楼把图档传上来了，你看一下，谢谢了

bssurvey · 发表于 2018-3-31 15:04

yxl88168 发表于 2018-3-31 13:05
我再10楼把图档传上来了，你看一下，谢谢了

(DEFUN C:ds1()
(setq nl(car (entsel "選取圖框:")))  ;選取的圖框，必須是塊，因為他有比例
(setq p3 (cdr(assoc 42 (entget nl)))) ;p3變數為選取塊的比例
(vla-getboundingbox (vlax-ename->vla-object nl) 'll 'ur) ;抓取塊的左下及右上的坐標
(setq pt1 (vlax-safearray->list ll)) ;定義左下的pt1坐標
(setq pt2 (vlax-safearray->list ur)) ;定義右上的pt2坐標
(setq n (ssget "_W" pt1 pt2))  ;窗選範圍內所有的物件
(COMMAND "_DIMOVERRIDE" "DIMSCALE" p3 "" n "")  ; 取代窗選範圍內"標註"的比例
(COMMAND "DIMSCALE" p3)  ;設定標註的比例，就如您所說，在標註前先設定好比例，就不可以用 (COMMAND "DIMSCALE" p3 "" n "") ，因為  "" n ""這一段會讓command接下來要做什麼，所以您說會多按一下的原因。
(COMMAND "textsize" p3) ;設定單行文字與多行文字的字高
(PRINC ))
如果您只需設定
可以這樣
(DEFUN C:ds1()
(setq nl(car (entsel "選取圖框:")))
(setq p3 (cdr(assoc 42 (entget nl))))
(COMMAND "DIMSCALE" p3)
(COMMAND "textsize" p3) ;設定單行文字與多行文字的字高
(PRINC ))

yxl88168 · 发表于 2018-3-31 16:28

bssurvey 发表于 2018-3-31 15:04
(DEFUN C:ds1() ...

谢谢，就是这个意思，由于我们平时习惯是标注的文字本来就有一个原始的大小3.0，所以能不能加一句运算，让《(COMMAND "textsize" p3) ;設定單行文字與多行文字的字高》这里的字高是p3的2.6倍，

bssurvey · 发表于 2018-3-31 17:23

yxl88168 发表于 2018-3-31 16:28
谢谢，就是这个意思，由于我们平时习惯是标注的文字本来就有一个原始的大小3.0，所以能不能加一句运算， ...

(COMMAND "textsize" (* p3 2.6))

yxl88168 · 发表于 2018-3-31 21:21

bssurvey 发表于 2018-3-31 17:23
(COMMAND "textsize" (* p3 2.6))

谢谢bssurvey ，这样就太完美了

yxl88168 · 发表于 2018-4-1 10:20

bssurvey 发表于 2018-3-31 17:23
(COMMAND "textsize" (* p3 2.6))

(DEFUN C:ds1()
(setq nl(car (entsel "選取圖框:")))
(setq p3 (cdr(assoc 42 (entget nl))))
(COMMAND "DIMSCALE" p3)
(COMMAND "textsize" p3) ;設定單行文字與多行文字的字高
(PRINC ))

我们用的就是一个，发现一个问题，每次执行完命令后，就设置好了标注比例和字高，但是等我标好一个图，再去标另一个图，（另一个图的图框与这一个一样的）发现字高就自动变成了3，需要我再次执行下DS1命令，能不能让他把上次的字高记住，一直到我下次再因图框大小有变化时，

paulpipi · 发表于 2018-6-16 22:51

137407536 · 发表于 2019-4-9 14:10

学习了受教了

qianyi0710 · 发表于 2019-9-12 23:13

用不了，是否根据图框，来定标注比例

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

[源码] 标注比例更改

点评

评分