请教如何实现类似探索者CAD的数值比例换算

LIUYANG233

本人在结构设计院工作，我们院的习惯是按比例画图，1:1出图。探索者中如果绘图比例是1:100，输入1000后Ctrl+enter，将自动换算回10，请教一下如和在lsp实现该功能呢，或者将该功能加入到lsp中，还望各位高手能解答。

LIUYANG233

hao3ren 发表于 2023-9-17 17:33
在1:100的情况下，输入100，得到的长度是不是应该为100000？
(setq bl (/ (cdr(assoc 144 (tblsearch "DIM ...

太感谢您了，已经成功将比例折算的功能融入到我之前的插件中，万分感谢

Bao_lai

tssd这个功能才知道不久，挺好用的。

hao3ren

2. ;比例绘图
   
3. (defun c:plcs()
   
4. ;(if (= (getvar "useri5") 0) (setvar "useri5" 1))
   
5. ;(if (setq blc (getreal (strcat "\n1:?<" (itoa (getvar "useri5")) ">")))
   
6. ; (setvar "useri5" blc)
   
7. ; (setq blc (getvar "useri5"))
   
8. ;)
   
9. ;(setq bl (/ blc 1000.0))
   
10. (if (and (princ "\n选择尺寸 :") (setq s1 (ssget ":S" '((0 . "DIMENSION"))))) (progn
    
11.   (setq dimname (cdr(assoc 3 (entget(ssname s1 0)))))
    
12.   (setq bl (/ (cdr(assoc 144 (tblsearch "DIMSTYLE" dimname))) 1000))
    
13.   (setq olddim (getvar "DIMSTYLE"))
    
14.   (command "-DIMSTYLE" "R" dimname "GRAPHSCR")
    
15.   (initget "L C CO M O ")
    
16.   (setq bz (getkword "\n直线-L/圆-C/拷贝-CP/移动-M/偏移-O <L>:"))
    
17.   (cond
    
18.    ((= bz "C")
    
19.     (if (= (getvar "userr4") 0) (setvar "userr4" 1.0))
    
20.     (while (setq p1 (getpoint "\n圆心<回车结束>:"))
    
21.      (if (setq rr (getdist (strcat "\n半径<" (rtos (getvar "userr4")) ">:")))
    
22.       (setvar "userr4" rr)
    
23.       (setq rr (getvar "userr4"))
    
24.      )
    
25.      (command ".CIRCLE" p1 (/ rr bl))
    
26.     )
    
27.    )
    
28.    ((= bz "CO")
    
29.     (if (= (getvar "userr3") 0) (setvar "userr3" 1.0))
    
30.     (while (and (print "\n选择图元 :")
    
31.                 (setq ss (ssget))
    
32.                 (setq p1 (getpoint "\n起始点 :"))
    
33.                 (setq ang (getangle p1 "\n方向 :")))
    
34.      (if (setq ll (getdist (strcat "\n距离<" (rtos (getvar "userr3")) ">:")))
    
35.       (setvar "userr3" ll)
    
36.       (setq ll (getvar "userr3"))
    
37.      )
    
38.      (command ".COPY" ss "" p1 (polar p1 ang (/ ll bl)))
    
39.     )
    
40.    )
    
41.    ((= bz "M")
    
42.     (if (= (getvar "userr2") 0) (setvar "userr2" 1.0))
    
43.     (while (and (print "\n选择图元 :")
    
44.                 (setq ss (ssget))
    
45.                 (setq p1 (getpoint "\n起始点 :"))
    
46.                 (setq ang (getangle p1 "\n方向 :")))
    
47.      (if (setq ll (getdist (strcat "\n距离<" (rtos (getvar "userr2")) ">:")))
    
48.       (setvar "userr2" ll)
    
49.       (setq ll (getvar "userr2"))
    
50.      )
    
51.      (command ".MOVE" ss "" p1 (polar p1 ang (/ ll bl)))
    
52.     )
    
53.    )
    
54.    ((= bz "O")
    
55.     (if (= (getvar "userr1") 0) (setvar "userr1" 1.0))
    
56.     (if (setq ll (getdist (strcat "\n偏移距离<" (rtos (getvar "userr1")) ">:")))
    
57.      (setvar "userr1" ll)
    
58.      (setq ll (getvar "userr1"))
    
59.     )
    
60.     (command ".OFFSET" (/ ll bl))
    
61.     (while (> (getvar "CMDACTVE") 1) (command PAUSE))
    
62.    )
    
63.    (T
    
64.     (if (= (getvar "userr5") 0) (setvar "userr5" 1.0))
    
65.     (while (and (setq p1 (getpoint "\n起点<回车结束>:"))
    
66.                 (setq ang (getangle p1 "\n止点所在方向:")))
    
67.      (if (setq ll (getdist (strcat "\n直线长度<" (rtos (getvar "userr5")) ">:")))
    
68.       (setvar "userr5" ll)
    
69.       (setq ll (getvar "userr5"))
    
70.      )
    
71.      (command ".LINE" p1 (polar p1 ang (/ ll bl)) "")
    
72.     )
    
73.    )
    
74.   )
    
75. ))
    
76. (if olddim (command "-DIMSTYLE" "R" olddim "GRAPHSCR"))
    
77. (princ)
    
78. )
    

;比例绘图<br /> (defun c:plcs()<br /> ;(if (= (getvar "useri5") 0) (setvar "useri5" 1))<br /> ;(if (setq blc (getreal (strcat "\n1:?<" (itoa (getvar "useri5")) ">")))<br /> ; (setvar "useri5" blc)<br /> ; (setq blc (getvar "useri5"))<br /> ;)<br /> ;(setq bl (/ blc 1000.0))<br /> (if (and (princ "\n选择尺寸 :") (setq s1 (ssget ":S" '((0 . "DIMENSION"))))) (progn<br />   (setq dimname (cdr(assoc 3 (entget(ssname s1 0)))))<br />   (setq bl (/ (cdr(assoc 144 (tblsearch "DIMSTYLE" dimname))) 1000))<br />   (setq olddim (getvar "DIMSTYLE"))<br />   (command "-DIMSTYLE" "R" dimname "GRAPHSCR") <br />   (initget "L C CO M O ")<br />   (setq bz (getkword "\n直线-L/圆-C/拷贝-CP/移动-M/偏移-O <L>:"))<br />   (cond<br />    ((= bz "C")<br />     (if (= (getvar "userr4") 0) (setvar "userr4" 1.0))<br />     (while (setq p1 (getpoint "\n圆心<回车结束>:"))<br />      (if (setq rr (getdist (strcat "\n半径<" (rtos (getvar "userr4")) ">:")))<br />       (setvar "userr4" rr)<br />       (setq rr (getvar "userr4"))<br />      )<br />      (command ".CIRCLE" p1 (/ rr bl))<br />     )<br />    )<br />    ((= bz "CO")<br />     (if (= (getvar "userr3") 0) (setvar "userr3" 1.0))<br />     (while (and (print "\n选择图元 :")<br />                 (setq ss (ssget))<br />                 (setq p1 (getpoint "\n起始点 :"))<br />                 (setq ang (getangle p1 "\n方向 :")))<br />      (if (setq ll (getdist (strcat "\n距离<" (rtos (getvar "userr3")) ">:")))<br />       (setvar "userr3" ll)<br />       (setq ll (getvar "userr3"))<br />      )<br />      (command ".COPY" ss "" p1 (polar p1 ang (/ ll bl)))<br />     )<br />    )<br />    ((= bz "M")<br />     (if (= (getvar "userr2") 0) (setvar "userr2" 1.0))<br />     (while (and (print "\n选择图元 :")<br />                 (setq ss (ssget))<br />                 (setq p1 (getpoint "\n起始点 :"))<br />                 (setq ang (getangle p1 "\n方向 :")))<br />      (if (setq ll (getdist (strcat "\n距离<" (rtos (getvar "userr2")) ">:")))<br />       (setvar "userr2" ll)<br />       (setq ll (getvar "userr2"))<br />      )<br />      (command ".MOVE" ss "" p1 (polar p1 ang (/ ll bl)))<br />     )<br />    )<br />    ((= bz "O")<br />     (if (= (getvar "userr1") 0) (setvar "userr1" 1.0))<br />     (if (setq ll (getdist (strcat "\n偏移距离<" (rtos (getvar "userr1")) ">:")))<br />      (setvar "userr1" ll)<br />      (setq ll (getvar "userr1"))<br />     )<br />     (command ".OFFSET" (/ ll bl))<br />     (while (> (getvar "CMDACTVE") 1) (command PAUSE))<br />    )<br />    (T<br />     (if (= (getvar "userr5") 0) (setvar "userr5" 1.0))<br />     (while (and (setq p1 (getpoint "\n起点<回车结束>:"))<br />                 (setq ang (getangle p1 "\n止点所在方向:")))<br />      (if (setq ll (getdist (strcat "\n直线长度<" (rtos (getvar "userr5")) ">:")))<br />       (setvar "userr5" ll)<br />       (setq ll (getvar "userr5"))<br />      )<br />      (command ".LINE" p1 (polar p1 ang (/ ll bl)) "")<br />     )<br />    )<br />   )<br /> ))<br /> (if olddim (command "-DIMSTYLE" "R" olddim "GRAPHSCR"))<br /> (princ)<br /> )<br />

tiancao100

1:100不挺好吗，为何要用1:1的。 是等于将图纸缩放0.01倍，文字高度和标注样式换成1：1的样式吗？

LIUYANG233

tiancao100 发表于 2023-9-16 16:09
1:100不挺好吗，为何要用1:1的。 是等于将图纸缩放0.01倍，文字高度和标注样式换成1：1的样式吗？

我的意思是现在的lsp插件很多输入距离，不能像探索者一样自动换算，我感觉很麻烦，想问问lsp能不能也有这个功能

LIUYANG233

hao3ren 发表于 2023-9-17 11:06

谢谢大佬，我好好研究研究

LIUYANG233

hao3ren 发表于 2023-9-17 11:06

您好，用了您提供的lsp，运行后似乎存在有点小问题，目前在1:100的情况下，输入100，得到的长度为10000，实际上我想得到的是1，请问该如何调整呢

hao3ren

在1:100的情况下，输入100，得到的长度是不是应该为100000？
(setq bl (/ (cdr(assoc 144 (tblsearch "DIMSTYLE" dimname))) 1000))
把里面的1000改为0.01

尘缘一生

这是目前最遗憾的事情，为此三领没少废了劲！