xiabin68 发表于 2013-1-31 00:07:17

现在才看到已经有例子了哦，，顶起来哦，

革天明 发表于 2013-1-31 16:09:28

修改后的程序如下，运行时会提示要求找到picture的那个lsp，大家使用时选择一下就行了，
程序是一个注册模块，原贴的37楼http://bbs.mjtd.com/thread-100261-4-1.html
如何在DCL中任意插入图片，稍后继续

革天明 发表于 2013-1-31 16:54:51

程序的重点在于以下代码
;;以下是修改段
;;(setq images (load "pictures"))        ;编译vlx后用这句，注释下面的那句
(setq images (ReadFromFile))                        ;用对话框读取用这句，注释上面的那句
(and (null Images) (exit))

;;;插入DCL头
(setq dclname (H:DCLHead '("test:dialog{")))
;;;插入数据
(H:InsertDCLData
    '("label=\"管牙型号标注\";"
      ":row{"
      ":boxed_radio_column{key=\"GY\";label=\"管牙\";width=15;"
      ":radio_button{key=\"PT\";label=\"PT\";}"
      ":radio_button{key=\"NPT\";label=\"NPT\";}"
      ":radio_button{key=\"BSP\";label=\"BSP\";}"
      ":radio_button{key=\"BSPT\";label=\"BSPT\";}"
      "}"
      ":boxed_radio_column{key=\"XH\";label=\"型号\";width=15;"
      ":radio_button{key=\"1/8\";label=\"1/8\";}"
      ":radio_button{key=\"1/4\";label=\"1/4\";}"
      ":radio_button{key=\"3/8\";label=\"3/8\";}"
      ":radio_button{key=\"1/2\";label=\"1/2\";}"
      ":radio_button{key=\"3/4\";label=\"3/4\";}"
      "}"
      "}"
      ":edit_box{key=\"GYXH\";label=\"管牙型号\";}"
      ":row{"
   )
    dclname
)

;;把图像按钮插入你想要的地方
(setq Imglst (H:InsertImage Images T 0 dclname))
(H:InsertDCLData
    '("}"
      ":row{"
      ":button{key=\"IN\";label=\"插入引线标注\";}"
      ":button{is_cancel=true;key=\"cancel\";label=\"取消\";}"
      "}"
      "}"
   )
    dclname
)
;;获取CAD颜色对象，为颜色转化做准备
(setq Version (substr (getvar 'acadver) 1 2))
(setq Version (strcat "AutoCAD.AcCmColor." version))
(setq ColorObj (vlax-create-object version))
;;修改段结束


里面包含如何写DCL这个是重点所在。

hao3ren 发表于 2013-2-6 19:10:48

; 错误: 参数类型错误: consp INDEX->RGB

vvcd 发表于 2014-5-30 13:37:27

为什么这里不能下载呢

恕放之生命 发表于 2014-7-23 23:35:37

路过学习一下。
页: 1 [2]
查看完整版本: 求接地气！高飞鸟的程序太高了，请高手写个简单点的程序！