求tssd2.5版本到2.8版本任一版本， 比例绘图功能可用

adc

不明白你说的比例绘图功能是指什么

zag0666

命令行输入数值按 enter键， 通过设定的比例，进行数值的转换
你看我发的图片就知道了啊

zag0666

大家都看看，有高手能做吗？？？？？？

顶起!!!

zag0666

内容已经编辑，还望高手们能够出手，勇夺“巨奖”

zag0666

花了“巨大”代价  解决了。

内容已经更改
希望哪位大神路过能解决已更改的问题即可。

zag0666

顶一下  ，

自贡黄明儒

你这段程序干什么用的呀，值得你花这么大代价？

zag0666

自贡黄明儒 发表于 2012-11-22 12:30
你这段程序干什么用的呀，值得你花这么大代价？

原来的是为了解决比例绘图的问题。“代价”比悬赏的大多了

现在这段程序不是啊。目的是控制尺寸界线原点到尺寸线的距离
现在的是“叮咚”免费帮我写的，有些瑕疵。 想请大家帮忙看看

自贡黄明儒

试了一下，好象没有问题

1. (defun c:cb (/ pt01 pt02 pt03 pt04 en data ang olderr)
   
2.   (setvar "osmode" 7607)
   
3.   (vl-cmdf "layer" "make" "标注" "Color" 3 "" "")
   
4.   (setvar "cmdecho" 0)
   
5.   
   
6.   (command "_.undo" "_be")
   
7.   (initget 1)
   
8.   (setq pt01 (getpoint "\n 指定第一点:"))
   
9.   (command
   
10.     "_.dimlinear"
    
11.     pt01
    
12.     (progn (princ "\n指定下一点:") pause)
    
13.     (progn (setq pt03 (getpoint "\n指定尺寸线参考点<空格取消指定>:"))
    
14.            (princ "\n指定位置:")
    
15.            pause
    
16.     )
    
17.   )
    
18.   (while (= (logand (getvar "CmdActive") 1) 1)
    
19.     (command pause)
    
20.   )
    
21.   (setq        en   (entlast)
    
22.         data (entget en)
    
23.   )
    
24.   (if pt03
    
25.     (progn
    
26.       (setq pt04 (cdr (assoc 10 data)))
    
27.       (setq pt02 (cdr (assoc 14 data)))
    
28.       (setq ang (angle pt02 pt04))
    
29.       (setq pt03 (polar pt03 ang 5))
    
30.       (if (or (equal ang 0 0.001)
    
31.               (equal ang pi 0.001)
    
32.               (equal ang (* 2 pi) 0.001)
    
33.           )
    
34.         (setq pt04 (cons (car pt03) (cdr pt04)))
    
35.         (setq pt04 (list (car pt04) (cadr pt03) (last pt04)))
    
36.       )
    
37.       (setq data (subst (cons 10 pt04) (assoc 10 data) data))
    
38.       (entmod data)
    
39.     )
    
40.   )
    
41.   
    
42.   (command "_.undo" "_e")
    
43.   (setvar "cmdecho" 1)
    
44.   (princ)
    
45. )
    
46. 
    
47. (defun c:bc (/ pt01 pt02 pt03 pt04 en data ang olderr)
    
48.   (setvar "osmode" 7607)
    
49.   (vl-cmdf "layer" "make" "标注" "Color" 3 "" "")
    
50.   (setvar "cmdecho" 0)
    
51.   
    
52.   (command "_.undo" "_be")
    
53.   (initget 1)
    
54.   (setq pt01 (getpoint "\n指定第一点:"))
    
55.   (command
    
56.     "_.dimaligned"
    
57.     pt01
    
58.     (progn (princ "\n指定下一点:") pause)
    
59.     (progn (setq pt03 (getpoint "\n指定尺寸线参考点<空格取消指定>:"))
    
60.            (princ "\n指定位置:")
    
61.            pause
    
62.     )
    
63.   )
    
64.   (while (= (logand (getvar "CmdActive") 1) 1)
    
65.     (command pause)
    
66.   )
    
67.   (setq        en   (entlast)
    
68.         data (entget en)
    
69.   )
    
70.   (if pt03
    
71.     (progn
    
72.       (setq pt04 (cdr (assoc 10 data)))
    
73.       (setq pt02 (cdr (assoc 14 data)))
    
74.       (setq ang (angle pt02 pt04))
    
75.       (setq pt04 (polar pt03 ang 5))
    
76.       (setq data (subst (cons 10 pt04) (assoc 10 data) data))
    
77.       (entmod data)
    
78.     )
    
79.   )
    
80. 
    
81.   (command "_.undo" "_e")
    
82.   (setvar "cmdecho" 1)
    
83.   (princ)
    
84. )
    

(defun c:cb (/ pt01 pt02 pt03 pt04 en data ang olderr)<br />   (setvar "osmode" 7607)<br />   (vl-cmdf "layer" "make" "标注" "Color" 3 "" "")<br />   (setvar "cmdecho" 0)<br />   <br />   (command "_.undo" "_be")<br />   (initget 1)<br />   (setq pt01 (getpoint "\n 指定第一点:"))<br />   (command<br />     "_.dimlinear"<br />     pt01<br />     (progn (princ "\n指定下一点:") pause)<br />     (progn (setq pt03 (getpoint "\n指定尺寸线参考点<空格取消指定>:"))<br />            (princ "\n指定位置:")<br />            pause<br />     )<br />   )<br />   (while (= (logand (getvar "CmdActive") 1) 1)<br />     (command pause)<br />   )<br />   (setq        en   (entlast)<br />         data (entget en)<br />   )<br />   (if pt03<br />     (progn<br />       (setq pt04 (cdr (assoc 10 data)))<br />       (setq pt02 (cdr (assoc 14 data)))<br />       (setq ang (angle pt02 pt04))<br />       (setq pt03 (polar pt03 ang 5))<br />       (if (or (equal ang 0 0.001)<br />               (equal ang pi 0.001)<br />               (equal ang (* 2 pi) 0.001)<br />           )<br />         (setq pt04 (cons (car pt03) (cdr pt04)))<br />         (setq pt04 (list (car pt04) (cadr pt03) (last pt04)))<br />       )<br />       (setq data (subst (cons 10 pt04) (assoc 10 data) data))<br />       (entmod data)<br />     )<br />   )<br />   <br />   (command "_.undo" "_e")<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br /> <br /> (defun c:bc (/ pt01 pt02 pt03 pt04 en data ang olderr)<br />   (setvar "osmode" 7607)<br />   (vl-cmdf "layer" "make" "标注" "Color" 3 "" "")<br />   (setvar "cmdecho" 0)<br />   <br />   (command "_.undo" "_be")<br />   (initget 1)<br />   (setq pt01 (getpoint "\n指定第一点:"))<br />   (command<br />     "_.dimaligned"<br />     pt01<br />     (progn (princ "\n指定下一点:") pause)<br />     (progn (setq pt03 (getpoint "\n指定尺寸线参考点<空格取消指定>:"))<br />            (princ "\n指定位置:")<br />            pause<br />     )<br />   )<br />   (while (= (logand (getvar "CmdActive") 1) 1)<br />     (command pause)<br />   )<br />   (setq        en   (entlast)<br />         data (entget en)<br />   )<br />   (if pt03<br />     (progn<br />       (setq pt04 (cdr (assoc 10 data)))<br />       (setq pt02 (cdr (assoc 14 data)))<br />       (setq ang (angle pt02 pt04))<br />       (setq pt04 (polar pt03 ang 5))<br />       (setq data (subst (cons 10 pt04) (assoc 10 data) data))<br />       (entmod data)<br />     )<br />   )<br /> <br />   (command "_.undo" "_e")<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br />

zag0666

自贡黄明儒 发表于 2012-11-22 13:08
试了一下，好象没有问题

你试试我的图看看

点1   点2   为问题1

点3           为问题2