AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[分享]不同图框自动更改全局比例--转载 Ioaoe110[分享]不同图框自动更改全局比例--转载 2020-310[分享]不同图框自动更改全局比例--转载 Oiu15010[分享]不同图框自动更改全局比例--转载 2020-211[分享]不同图框自动更改全局比例--转载 Ia15010[分享]不同图框自动更改全局比例--转载 Aizyao10[分享]不同图框自动更改全局比例--转载 Uos15010[分享]不同图框自动更改全局比例--转载 BPl3tjj[分享]不同图框自动更改全局比例--转载 Ziao1510
[分享]不同图框自动更改全局比例--转载 Oo-2-110[分享]不同图框自动更改全局比例--转载 Zuoiy_10[分享]不同图框自动更改全局比例--转载 Aizyao11[分享]不同图框自动更改全局比例--转载 Iyb_1510[分享]不同图框自动更改全局比例--转载 Aoe1-111[分享]不同图框自动更改全局比例--转载 Uos15011[分享]不同图框自动更改全局比例--转载 Aoe2da10[分享]不同图框自动更改全局比例--转载 Aoe2da11[分享]不同图框自动更改全局比例--转载 Aoe10

[分享]不同图框自动更改全局比例--转载

3 posters

向下

[分享]不同图框自动更改全局比例--转载 Empty [分享]不同图框自动更改全局比例--转载

發表 由 baokeding 周六 11 10月 - 13:34

用了AutoCAD Mechanical一段时间,觉得增强标注不错,在论坛上没找到相关程序,于是自己用Lisp写了一个.
支持dli,dra,dal,ddi,dor,dan等常用标注命令.在不同比例的图框中自动切换全局比例.
图框名为GB_A*,可以在程序中修改.比例根据块比例得到.

选图框自动根据图框比例修改图框内全部标注全局比例
增加对文字高度,线型比例,填充线比例支持.

不知道为什么无法上传 附件。一个是lsp 两个GIF。

我觉得这个程序非常好,共享给大家一起来完善。目前标注,和文字都是支持的。但是引线不支持 版主不能完善一下。
https://drive.google.com/file/d/0B4Wtg7ObicFFOFJ3UEdaQWZtTTg/view?usp=sharing
https://drive.google.com/file/d/0B4Wtg7ObicFFalNjN3kzR1BhZms/view?usp=sharing
https://drive.google.com/file/d/0B4Wtg7ObicFFeTViOXZOVUFDem8/view?usp=sharing

____________________________________________________________________________________
[分享]不同图框自动更改全局比例--转载 Ioaoe110 [分享]不同图框自动更改全局比例--转载 Zuoiy_10 [分享]不同图框自动更改全局比例--转载 2020-211 [分享]不同图框自动更改全局比例--转载 Aizyao11 [分享]不同图框自动更改全局比例--转载 Iyb_1510
[分享]不同图框自动更改全局比例--转载 Aizyao10 [分享]不同图框自动更改全局比例--转载 BPl3tjj.png [分享]不同图框自动更改全局比例--转载 Ziao1510 [分享]不同图框自动更改全局比例--转载 Oo-2-110 [分享]不同图框自动更改全局比例--转载 Oooa_110
baokeding
baokeding
初級會員
初級會員

文章總數 : 98
年齡 : 45
來自 : dubai/uae
職業 : designer
愛好 : 上网/运动
個性 : 开朗/善良
使用年資 : 6
使用版本 : 2012
積分 : 1
最佳解答 : 1
經驗值 : 5015
威望值 : 39
注冊日期 : 2012-01-08
男 摩羯座 馬

回頂端 向下

[分享]不同图框自动更改全局比例--转载 Empty 回復: [分享]不同图框自动更改全局比例--转载

發表 由 judyyai 周六 11 10月 - 19:18

你好~
請問這LSP
是指AutoCAD Mechanical 與AutoCAD都可以用是這個意思嗎...

____________________________________________________________________________________
[分享]不同图框自动更改全局比例--转载 Ioaoe110 [分享]不同图框自动更改全局比例--转载 Zuoiy_10 [分享]不同图框自动更改全局比例--转载 2020-211 [分享]不同图框自动更改全局比例--转载 Aizyao11 [分享]不同图框自动更改全局比例--转载 Aoe10
[分享]不同图框自动更改全局比例--转载 Aizyao10 [分享]不同图框自动更改全局比例--转载 BPl3tjj.png [分享]不同图框自动更改全局比例--转载 Ziao1510 [分享]不同图框自动更改全局比例--转载 Oo-2-110 [分享]不同图框自动更改全局比例--转载 Aoe1-111
judyyai
judyyai
管理顧問
管理顧問

文章總數 : 7782
年齡 : 46
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30192
威望值 : 3609
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

[分享]不同图框自动更改全局比例--转载 Empty 回復: [分享]不同图框自动更改全局比例--转载

發表 由 baokeding 周日 12 10月 - 3:04

是的亲测

____________________________________________________________________________________
[分享]不同图框自动更改全局比例--转载 Ioaoe110 [分享]不同图框自动更改全局比例--转载 Zuoiy_10 [分享]不同图框自动更改全局比例--转载 2020-211 [分享]不同图框自动更改全局比例--转载 Aizyao11 [分享]不同图框自动更改全局比例--转载 Iyb_1510
[分享]不同图框自动更改全局比例--转载 Aizyao10 [分享]不同图框自动更改全局比例--转载 BPl3tjj.png [分享]不同图框自动更改全局比例--转载 Ziao1510 [分享]不同图框自动更改全局比例--转载 Oo-2-110 [分享]不同图框自动更改全局比例--转载 Oooa_110
baokeding
baokeding
初級會員
初級會員

文章總數 : 98
年齡 : 45
來自 : dubai/uae
職業 : designer
愛好 : 上网/运动
個性 : 开朗/善良
使用年資 : 6
使用版本 : 2012
積分 : 1
最佳解答 : 1
經驗值 : 5015
威望值 : 39
注冊日期 : 2012-01-08
男 摩羯座 馬

回頂端 向下

[分享]不同图框自动更改全局比例--转载 Empty 回復: [分享]不同图框自动更改全局比例--转载

發表 由 djh1006 周日 12 10月 - 13:02

二個gif檔案是動畫,沒法直接以附件方式上傳,要轉成影音格式avi,mp4...
在網上找了一下,以下鏈結可以下載轉檔程式而且是免費的
http://www.azofreeware.com/2008/10/formatfactory-155.html
轉體名稱:格式工廠
影片1

https://youtu.be/knPxTW9Ko

影片2

https://youtu.be/w4GeYkQ-c2k
以下把原始lsp上傳(版權屬原作者),其中有幾簡體字已轉為繁體字

代碼:
(defun ax:getboundingbox (entname / entpl entpr ptlist)
  (vla-getboundingbox (vlax-ename->vla-object entname) 'entpl 'entpr)
  (setq ptlist (mapcar 'vlax-safearray->list (list entpl entpr)))
  (mapcar '(lambda (x) (trans x 0 1)) ptlist)
)
(defun getentdxf (ent dxf)
  (cond
    ((= (type ent) 'ename)
      (cdr (assoc dxf (entget ent '("*"))))
    )
    ((= (type ent) 'vla-object)
      (cdr (assoc dxf (entget (vlax-vla-object->ename ent) '("*"))))
    )
  )
)
(setq *en2obj* vlax-ename->vla-object)
(defun c:ds ( / entgrp entgrpt entname entnamet n ptlist scale)
  (prompt "根據圖框比例自動改變圖框內所有標註比例")
  (if (setq entgrpt (ssget '((0 . "insert")(2 . "GB_A*"))))
    (repeat (setq nn (sslength entgrpt))
      (progn
        (setq entnamet (ssname entgrpt (setq nn (1- nn))))
        (command "zoom" "o" entnamet "")
 (setq ptlist (ax:getboundingbox entnamet))
 (setq entgrp (ssget "W" (car ptlist) (cadr ptlist) '((0 . "DIMENSION,*TEXT,*LINE,HATCH"))))
 (setq scale (vla-get-XScaleFactor (*en2obj* entnamet)))
 (repeat (setq n (sslength entgrp))
  (setq entname (ssname entgrp (setq n (1- n))))
  (cond
    ((= "HATCH" (getentdxf entname 0))
      (vla-put-PatternScale (*en2obj* entname) scale)
    )
    ((= "DIMENSION" (getentdxf entname 0))
      (vla-put-ScaleFactor (*en2obj* entname) scale)
    )
    ((wcmatch (getentdxf entname 0) "*TEXT")
      (vla-put-Height (*en2obj* entname) (* (getvar "textsize") scale))
    )
    ((wcmatch (getentdxf entname 0) "*LINE")
      (vla-put-LinetypeScale (*en2obj* entname) scale)
    )
  )
 )
      )
    )
  )
  (princ)
)
附件
[分享]不同图框自动更改全局比例--转载 Attachment
不同圖框自動更改標註比例.zip 您無權下載這里的附件。(1 Kb) 下載 37 次

____________________________________________________________________________________
微笑
djh1006
djh1006
中級會員
中級會員

文章總數 : 177
年齡 : 52
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 5898
威望值 : 358
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

[分享]不同图框自动更改全局比例--转载 Empty 回復: [分享]不同图框自动更改全局比例--转载

發表 由 baokeding 周一 13 10月 - 0:37

y有没有办法把引线也添加进去。这个估计得苹果爸出马了

____________________________________________________________________________________
[分享]不同图框自动更改全局比例--转载 Ioaoe110 [分享]不同图框自动更改全局比例--转载 Zuoiy_10 [分享]不同图框自动更改全局比例--转载 2020-211 [分享]不同图框自动更改全局比例--转载 Aizyao11 [分享]不同图框自动更改全局比例--转载 Iyb_1510
[分享]不同图框自动更改全局比例--转载 Aizyao10 [分享]不同图框自动更改全局比例--转载 BPl3tjj.png [分享]不同图框自动更改全局比例--转载 Ziao1510 [分享]不同图框自动更改全局比例--转载 Oo-2-110 [分享]不同图框自动更改全局比例--转载 Oooa_110
baokeding
baokeding
初級會員
初級會員

文章總數 : 98
年齡 : 45
來自 : dubai/uae
職業 : designer
愛好 : 上网/运动
個性 : 开朗/善良
使用年資 : 6
使用版本 : 2012
積分 : 1
最佳解答 : 1
經驗值 : 5015
威望值 : 39
注冊日期 : 2012-01-08
男 摩羯座 馬

回頂端 向下

[分享]不同图框自动更改全局比例--转载 Empty 回復: [分享]不同图框自动更改全局比例--转载

發表 由 djh1006 周一 13 10月 - 9:08

請問是不是少了東西,圖框

____________________________________________________________________________________
微笑
djh1006
djh1006
中級會員
中級會員

文章總數 : 177
年齡 : 52
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 5898
威望值 : 358
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

[分享]不同图框自动更改全局比例--转载 Empty 回復: [分享]不同图框自动更改全局比例--转载

發表 由 baokeding 周二 14 10月 - 2:34

djh1006 寫到:請問是不是少了東西,圖框
图框自己做。就是一个块。然后按照块比例还来做。你做个一块按照图纸框大小。放大50就是50倍。

____________________________________________________________________________________
[分享]不同图框自动更改全局比例--转载 Ioaoe110 [分享]不同图框自动更改全局比例--转载 Zuoiy_10 [分享]不同图框自动更改全局比例--转载 2020-211 [分享]不同图框自动更改全局比例--转载 Aizyao11 [分享]不同图框自动更改全局比例--转载 Iyb_1510
[分享]不同图框自动更改全局比例--转载 Aizyao10 [分享]不同图框自动更改全局比例--转载 BPl3tjj.png [分享]不同图框自动更改全局比例--转载 Ziao1510 [分享]不同图框自动更改全局比例--转载 Oo-2-110 [分享]不同图框自动更改全局比例--转载 Oooa_110
baokeding
baokeding
初級會員
初級會員

文章總數 : 98
年齡 : 45
來自 : dubai/uae
職業 : designer
愛好 : 上网/运动
個性 : 开朗/善良
使用年資 : 6
使用版本 : 2012
積分 : 1
最佳解答 : 1
經驗值 : 5015
威望值 : 39
注冊日期 : 2012-01-08
男 摩羯座 馬

回頂端 向下

[分享]不同图框自动更改全局比例--转载 Empty 回復: [分享]不同图框自动更改全局比例--转载

發表 由 baokeding 周二 14 10月 - 2:35

苹果爸爸,啥时候看到来解决一下。把标注引线也添加进去。

____________________________________________________________________________________
[分享]不同图框自动更改全局比例--转载 Ioaoe110 [分享]不同图框自动更改全局比例--转载 Zuoiy_10 [分享]不同图框自动更改全局比例--转载 2020-211 [分享]不同图框自动更改全局比例--转载 Aizyao11 [分享]不同图框自动更改全局比例--转载 Iyb_1510
[分享]不同图框自动更改全局比例--转载 Aizyao10 [分享]不同图框自动更改全局比例--转载 BPl3tjj.png [分享]不同图框自动更改全局比例--转载 Ziao1510 [分享]不同图框自动更改全局比例--转载 Oo-2-110 [分享]不同图框自动更改全局比例--转载 Oooa_110
baokeding
baokeding
初級會員
初級會員

文章總數 : 98
年齡 : 45
來自 : dubai/uae
職業 : designer
愛好 : 上网/运动
個性 : 开朗/善良
使用年資 : 6
使用版本 : 2012
積分 : 1
最佳解答 : 1
經驗值 : 5015
威望值 : 39
注冊日期 : 2012-01-08
男 摩羯座 馬

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]不同图框自动更改全局比例--转载 Ioaoe110[分享]不同图框自动更改全局比例--转载 2020-310[分享]不同图框自动更改全局比例--转载 Oiu15010[分享]不同图框自动更改全局比例--转载 2020-211[分享]不同图框自动更改全局比例--转载 Ia15010[分享]不同图框自动更改全局比例--转载 Aizyao10[分享]不同图框自动更改全局比例--转载 Uos15010[分享]不同图框自动更改全局比例--转载 BPl3tjj[分享]不同图框自动更改全局比例--转载 Ziao1510
[分享]不同图框自动更改全局比例--转载 Oo-2-110[分享]不同图框自动更改全局比例--转载 Zuoiy_10[分享]不同图框自动更改全局比例--转载 Aizyao11[分享]不同图框自动更改全局比例--转载 Iyb_1510[分享]不同图框自动更改全局比例--转载 Aoe1-111[分享]不同图框自动更改全局比例--转载 Uos15011[分享]不同图框自动更改全局比例--转载 Aoe2da10[分享]不同图框自动更改全局比例--转载 Aoe2da11[分享]不同图框自动更改全局比例--转载 Aoe10