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

huajie111 · 发表于 2004-3-30 05:56:00

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

登录/注册后可看大图

huajie111 · 发表于 2004-3-30 05:58:00

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

meflying · 发表于 2004-3-30 08:29:00

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

huajie111 · 发表于 2004-3-30 13:14:00

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

huajie111 · 发表于 2004-3-30 13:20:00

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

meflying · 发表于 2004-3-30 16:38:00

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

huajie111 · 发表于 2004-3-30 17:01:00

5楼是说换软件,不是条件...
我同意他的看法

yxp · 发表于 2004-3-30 22:14:00

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

huajie111 · 发表于 2004-3-30 22:23:00

我看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 请输入标注尺寸比例:"))
   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 · 发表于 2004-3-30 23:13:00

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

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

发表回复

精选推荐