找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 710|回复: 7

[求助] 读取dcl数据写入到扩展属性

[复制链接]

已领礼包: 1个

财富等级: 恭喜发财

发表于 2018-5-25 18:43:54 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
写入扩展属性(1000 . get_tile "cy1"))的时候显示不符合dxf组码   希望能有人知道下该怎么操作?谢谢
QQ截图20180525184331.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-5-25 21:24:30 | 显示全部楼层
孤云寒霜 发表于 2018-5-25 21:06
后面的(defun ok_gaicuo())这一段不知道怎么写

你这句就有问题啊

(setq jtcy1 '((-3("jtcy1" (1000 . (get_tile "cy1"))))))

get_tile是函数名,你给放 '(里面了,

LISP是表处理语言,一个括号的最左面是函数, 扩号的求值可以作为参数 放上层的表的非第一个元素作为参数

单就这行说,你这行应该:
(setq jtcy1 (list (list -3 (list "jtcy1" (cons 1000 (get_tile "cy1"))))))

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-5-25 20:06:08 | 显示全部楼层
你的代码有问题
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2018-5-25 20:22:19 | 显示全部楼层
newer 发表于 2018-5-25 20:06
你的代码有问题

该怎么写呢  这里不会   请指教一下

点评

请把你的代码和DCL贴上来。  详情 回复 发表于 2018-5-25 20:46
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-5-25 20:46:31 | 显示全部楼层
孤云寒霜 发表于 2018-5-25 20:22
该怎么写呢  这里不会   请指教一下

请把你的代码和DCL贴上来。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2018-5-25 21:01:18 | 显示全部楼层
gaicuo:dialog{
label="ZD及权利人信息";
:boxed_column{
label="宗地属性";
:row{
:edit_box{label="宗地代码:";edit_width=28;edit_limit=19;key="zd_num";}
:edit_box{label="权利人:";edit_width=20;key="zd_qlr";}}
:row{
:edit_box{label="地类:";edit_width=12;key="zd_dl";}
:edit_box{label="面积:";edit_width=12;key="zd_area";}
:edit_box{label="建房时间:";edit_width=12;key="nd";}}
:row{:edit_box{label="通讯地址:";edit_width=58;key="zl";}
}
}
:boxed_column{
label=家庭成员信息;
:row{:edit_box{label="成员1:";edit_width=8;key="cy1";}
     :edit_box{label="身份证:";edit_width=18;edit_limit=18;key="sfz1";}
     :edit_box{label="与户主关系:";edit_width=5;key="gx1";}}
:row{:edit_box{label="成员2:";edit_width=8;key="cy2";}
     :edit_box{label="身份证:";edit_width=18;edit_limit=18;key="sfz2";}
     :edit_box{label="与户主关系:";edit_width=5;key="gx2";}}
:row{:edit_box{label="成员3:";edit_width=8;key="cy3";}
     :edit_box{label="身份证:";edit_width=18;edit_limit=18;key="sfz3";}
     :edit_box{label="与户主关系:";edit_width=5;key="gx3";}}
:row{:edit_box{label="成员4:";edit_width=8;key="cy4";}
     :edit_box{label="身份证:";edit_width=18;edit_limit=18;key="sfz4";}
     :edit_box{label="与户主关系:";edit_width=5;key="gx4";}}
:row{:edit_box{label="成员5:";edit_width=8;key="cy5";}
     :edit_box{label="身份证:";edit_width=18;edit_limit=18;key="sfz5";}
     :edit_box{label="与户主关系:";edit_width=5;key="gx5";}}
:row{:edit_box{label="成员6:";edit_width=8;key="cy6";}
     :edit_box{label="身份证:";edit_width=18;edit_limit=18;key="sfz6";}
     :edit_box{label="与户主关系:";edit_width=5;key="gx6";}}
:row{:edit_box{label="成员7:";edit_width=8;key="cy7";}
     :edit_box{label="身份证:";edit_width=18;edit_limit=18;key="sfz7";}
     :edit_box{label="与户主关系:";edit_width=5;key="gx7";}}
:row{:edit_box{label="成员8:";edit_width=8;key="cy8";}
     :edit_box{label="身份证:";edit_width=18;edit_limit=18;key="sfz8";}
     :edit_box{label="与户主关系:";edit_width=5;key="gx8";}}
:row{:edit_box{label="成员9:";edit_width=8;key="cy9";}
     :edit_box{label="身份证:";edit_width=18;edit_limit=18;key="sfz9";}
     :edit_box{label="与户主关系:";edit_width=5;key="gx9";}}
:row{:edit_box{label="成员x:";edit_width=8;key="cy10";}
     :edit_box{label="身份证:";edit_width=18;edit_limit=18;key="sfz10";}
     :edit_box{label="与户主关系:";edit_width=5;key="gx10";}}
}
:row{label="权属情况";
:popup_list{label="权属来源:";edit_width=30;list="农村居民建房用地呈报表\n农房审批资料\n农业建设使用土地呈报表\n农村居民建房用地呈报表、乡村建设规划许可证\n原土地使用证\n农房建设申请报批表\n乡村建设规划许可证";key="qsly";}
ok_cancel;
}
:row{
:edit_box{label="批准文号:";edit_width=20;key="pwwh";}
:edit_box{label="审批面积:";edit_width=20;key="spmj";}
}
}
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2018-5-25 21:04:56 | 显示全部楼层
(defun c:gai()
(setvar "cmdecho" 0) ;关闭命令显示
(setq zd_in3 (entget  
                     (setq zd_in2 (car  
                                        (setq zd_in1 (entsel))))))

(setq zd_sx (cadr(assoc -3(entget ZD_IN2'("SOUTH")))));获取宗地属性
(setq mj(CDR(CADADR(assoc -3(entget ZD_IN2'("AREA"))))));面积
(setq zddm  (cdaddr zd_sx)   
      dilei(cdar (cddddr zd_sx))
      huzhu (cdr(cadddr zd_sx)))
   
(dcl_gaicuo)
(prin1)
)

(defun dcl_gaicuo()
(setq dcl_id(load_dialog "改错"))
(new_dialog "gaicuo" dcl_id )
(set_tile "zd_num" zddm)
(set_tile "zd_qlr" huzhu)
(set_tile "zd_dl" dilei)
(set_tile "zd_area"   mj)
(action_tile "accept" "(ok_gaicuo)(done_dialog 1)")
(start_dialog)
)




(defun ok_gaicuo()
(regapp "jtcy1")
(setq jtcy1 '((-3("jtcy1" (1000 . (get_tile "cy1"))))))

(entmod ( append zd_in3 jtcy1))
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2018-5-25 21:06:11 | 显示全部楼层
newer 发表于 2018-5-25 20:46
请把你的代码和DCL贴上来。

后面的(defun ok_gaicuo())这一段不知道怎么写

点评

你这句就有问题啊 (setq jtcy1 '((-3("jtcy1" (1000 . (get_tile "cy1")))))) get_tile是函数名,你给放 '(里面了, LISP是表处理语言,一个括号的最左面是函数, 扩号的求值可以作为参数 放上层的表的非第  详情 回复 发表于 2018-5-25 21:24
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 01:55 , Processed in 0.426428 second(s), 47 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表