[求助]已经画好的平面图能否实现数字关联,调用DCL实现对话框中输入数据动态改变大小

huajie111

[求助]已经画好的平面图能否实现数字关联,调用DCL实现对话框中输入数据动态改变大小?[br]已经画好的平面图能否实现数字关联?                 ,调用DCL实现对话框中输入数据动态改变对应的长.宽.弧度大小.大家看看能不能实现这样的功能,我的图不是在LISP下编辑生成的.是用手工画好的.         小弟在这静候佳音了.

huajie111

字打错了.是那个框中是说:那个CAD 图已生成的手工图.

meflying

这样的图要实现这种功能应该是相当困难的

huajie111

那么说只能通过ＬＩＳＰ编程画出图来，然后实现数据关联改变大小是可行的吧？能否说详细一点为什么一楼的要求那么困难，现在的方案是否可行．这样的画编程画出来也不会太难吧？　　可否详细分析一下，相信和我一样水准的兄弟也不少吧，这大家一起进步吧.　　

Ea

想实现尺寸驱动还是换个软件吧，用Lisp写浪费时间和生命。

huajie111

请问怎么换条件，能说详细一点吗

meflying

5楼是说换软件,不是条件...


我同意他的看法

huajie111

　不好意思，看错了．现在我对ＬＩＳＰ真的很失望，突然觉的它什么也做不了．最后问几个问题，在已画好的图中，　　　　　　一．能否用ＬＩＳＰ编程，用ＤＣＬ做出对话框，在对话框中输入数据改变图的属性．与日期．　　　　　　　　　　　　　二，用否用实现在图中选定一条线或弧．块，实现弹出对话框告诉用户选定的对象的长度．大小．角度．等属性．

yxp

我看lisp完全可以,所需的仅仅是时间而已. 尺寸也可以完全实现. 下面是我刚刚写成的程序.分享一下先. (defun c:dde(/ oldpl dimybk yxpbl) (defun *error* (aeor)
(if aeor (princ "\n〖程序退出〗 2004.3.30 yxp"))
(setq *error* nil)
(princ)
)
(setq oldpl (getvar "PLINEWID")
oldtxt (getvar "TEXTSTYLE"))
(setvar "PLINEWID" 50)
(setvar "cmdecho" 0)

(if (= (getvar "userr5") 0) (setvar "userr5" 1)) (setq bi_li (getvar "userr5")
yxpbl (getreal (strcat "\n 请输入标注尺寸比例<" (rtos bi_li 2) ">:"))
yxpbl (if yxpbl (setvar "userr5" yxpbl) bi_li)) ;;制作标注的图块
(if (tblsearch "block" "_yxpdim")
(princ)
(progn
(setq dimybk (ssadd))
(command "line" "0,0" "300,0" "")
(ssadd (entlast) dimybk) (command "pline" "80,-70" "220,70" "")
(ssadd (entlast) dimybk)
(command "block" "_yxpdim" "150,0" dimybk "")
)
)
(if (= (tblsearch "style" "dim_yxp") nil)
(command "style" "dim_yxp" "simplex.shx" "0" "0.8" "0" "" "" "")
)
(princ)
(setvar "PLINEWID" oldpl)
(setvar "TEXTSTYLE" oldtxt)
;(setvar "dimsah" 1) ;用户自定义标注打开 (setvar "dimscale" yxpbl) ;标注的总体大小比例
(setvar "dimblk" "_yxpdim") ;尺寸箭头
(setvar "dimasz" 1) ;箭头大小 ;(setvar "dimaltu" 2) ;十进制单位 (setvar "dimunit" 2) ;十进制单位
(setvar "dimaunit" 1) ;标注角度为度分秒 ;(setvar "dimaltd" 0) ;小数点的位数 (setvar "dimdec" 0) ;小数点的位数 (setvar "dimexe" 200) ;界线伸出长度 (setvar "dimaltf" 1) ;标注比例系数
(setvar "dimjust" 0) ;文字沿标注线方向，在标注线中间 ;(setvar "dimtoh" 1) ;文字沿标注线方向
(setvar "dimtxt" 300) ;文字高度
(setvar "dimtad" 0) ;文字对中
(setvar "dimtvp" 0.8) ;文字距尺寸线距离
(setvar "dimtxsty" "dim_yxp") ;文字样式 (command "_dimaligned")
(princ)
)

huajie111

谢谢，我研究一下，看看能不消化