求接地气！高飞鸟的程序太高了，请高手写个简单点的程序！

xiabin68

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

革天明

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

革天明

程序的重点在于以下代码
;;以下是修改段
  ;;(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

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

vvcd

为什么这里不能下载呢

恕放之生命

路过学习一下。