找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: newer

[多段线] 删除多段线顶点工具

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

已领礼包: 129个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 6个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 22个

财富等级: 恭喜发财

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

已领礼包: 267个

财富等级: 日进斗金

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

使用道具 举报

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

使用道具 举报

已领礼包: 23个

财富等级: 恭喜发财

发表于 2020-10-10 13:51:45 | 显示全部楼层
;
;本帖最后由 lea丶丶 于 2016-5-5 10:03 编辑
;
;
;在前人基础上修改了DCL通用函数,但是为什么radio——button 获得属性值有问题。求优化[code="lisp] (vl-load-com)
;;;=================================================================*
(defun lea-dcl-init (STR_DIANAME      LST       /
                          LIST->DCL  TEMPFILENAME       F1
                          STR_JG     I    N       DCLID
                          LST_RESULT
                        )
  ;;==================================================================*
  ;;功能:根据控件信息表,生成DCL语言的文本                           *
  ;;      注意,调用参数均为字符串形式                                *
  ;;返回:与控件对应的dcl文本
  (defun LIST->DCL (LST  / X)
    (cond
      ;;写button
      ((wcmatch (car LST) "☆*")
        (strcat
          ":button{"
          (strcat "\nlabel=""
            (nth 0 LST)
            "";"
            "\nis_enabled = false;"
          )
          "\n}\n"
        )
      )
  
      ;;写edit_box
      ((= (nth 2 LST) "int")
        (strcat
          ":edit_box{"
          "\nallow_accept = true ;"
          (strcat "\nedit_width =20"
            ";"
          )
          "\nfixed_width = true ;"
          (strcat "\nkey ="" (CAR N) "";")
          (strcat "\nlabel=""
            (nth 1 LST)
            "";"
          )
          (strcat "\nvalue=""
            (nth 3 LST)
            "";"
          )
          "\n}\n"
        )
      )
      ;;写popup_list
      ((= (nth 2 LST) "poplist")
        (strcat
          ":popup_list{"
          (strcat "\nwidth =20"
            ";"
          )
          (strcat "\nlabel=""
            (nth 1 LST)
            "";"
          )
          (strcat "\nkey ="" (CAR N) "";")
          (cond
            ((= (type (nth 3 LST)) 'STR)
              (strcat "\nlist=""
                (nth 3 LST)
                "";"
              )
            )
            ((= (type (nth 3 LST)) 'list)
              (strcat
                "\nlist=""
                (apply
                  'strcat
                  (mapcar
                    '(lambda (X)
                       (strcat "\\n"
                         (vl-princ-to-string X)
                       )
                     )
                    (nth 3 LST)
                  )
                )
                "";"
              )
            )
            ((= (type (nth 3 LST)) 'SYM)
              (strcat
                "\nlist=""
                (apply
                  'strcat
                  (mapcar
                    '(lambda (X)
                       (strcat "\\n"
                         (vl-princ-to-string X)
                       )
                     )
                    (eval (nth 3 LST))
                  )
                )
                "";"
              )
            )
          ) ;_结束 cond
          "\n}\n"
        )
      )
      ;;
      ((= (nth 2 LST) "list")
        (strcat
          ":list_box{"
          (strcat "\nwidth ="(nth 4 lst)
            ";"
          )
          (strcat "\nheight =" (nth 5 lst)
            ";"
          )
          (strcat "\nlabel=" (nth 1 LST)
            ";"
          )
          (strcat "\nkey ="" (CAR N) "";")
          (cond
            ((= (type (nth 3 LST)) 'STR)
              (strcat "\nlist=""
                (nth 3 LST)
                "";"
              )
            )
            ((= (type (nth 3 LST)) 'list)
              (strcat
                "\nlist=""
                (apply
                  'strcat
                  (mapcar
                    '(lambda (X)
                       (strcat "\\n"
                         (vl-princ-to-string X)
                       )
                     )
                    (nth 3 LST)
                  )
                )
                "";"
              )
            )
            ((= (type (nth 3 LST)) 'SYM)
              (strcat
                "\nlist=""
                (apply
                  'strcat
                  (mapcar
                    '(lambda (X)
                       (strcat "\\n"
                         (vl-princ-to-string X)
                       )
                     )
                    (eval (nth 3 LST))
                  )
                )
                "";"
              )
            )
          ) ;_结束 cond
          "\n}\n"
        )
      )
      ;;
      ((= (car LST) "text")
        (strcat
          ":text{"
          (strcat "\nlabel=""
            (nth 1 LST)
            "";"
          )
          "\n}\n"
        )
      )
       ;;
      ((= (nth 1 LST) "radio_button")
      (strcat "\nkey ="" (CAR N) "";")
        (strcat
          ":radio_button{"
          (strcat "\nlabel=""
            (nth 2 LST)
            "";"
          )
          "\n}\n"
        )
      )
      ;;
      ((= (car LST) "spacer_1")
        (strcat "\n"
          (nth 0 LST)
          ";\n"
        )
      )
      ;;
      ((= (car LST) "boxed_column")
        (strcat
          ":boxed_column{"
          (strcat "\nlabel=""
            (nth 1 LST)
            "";"
          )
          "\n"
        )
      )
      ;;
      ((= (car LST) "boxed_radio_row")
        (strcat
          ":boxed_radio_row{"
          (strcat "\nlabel=""
            (nth 1 LST)
            "";"
          )
          "\n"
        )
      )
      ((= (car LST) "}")
        (strcat
          "\n}\n"
        )
      )
      ;;;      ((/= (LIST->DCL (cons "editbox" LST) KEY_I) "")
      ;;;       (LIST->DCL (cons "editbox" LST) KEY_I)
      ;;;      )
      (t "")
    ) ;_结束 cond
  ) ;_结束defun
  ;;==================================================================*
  ;;功能:定义按下确定按钮后的操作
  
(defun getinput  (lst / i n tmp)
  (setq i 0)
  (repeat (length lst)
    (setq n (nth i lst)
    i (1+ i)
    )
    (cond
      ((= (nth 2 n) "int")
     (set (read (car n)) (atof (get_tile (car n))))
    )
      ;;
     ((= (nth 1 n) "radio_button")
     (set (read (car n)) (get_attr (car n) "label"));此处获得属性值哪里出问题了
    )
      ;;
    ((= (nth 2 n) "poplist")
     (setq tmp (nth 3 n))
     (cond ((= (type (nth 3 n)) 'str)
      (setq tmp "*inputbox函数有待完善*")
     )
     ((= (type (nth 3 n)) 'list)
      (set (read (car n))
            (nth (atoi (get_tile (car n))) tmp)
      )
     )
        ((= (type (nth 3 n)) 'sym)
      (set (read (car n))
            (nth (atoi (get_tile (car n))) (eval tmp))
      )
     )
      
     )
    )
  ;;
      ((= (nth 2 n) "list")
     (setq tmp (nth 3 n))
     (cond ((= (type (nth 3 n)) 'str)
      (setq tmp "*inputbox函数有待完善*")
     )
     ((= (type (nth 3 n)) 'list)
      (set (read (car n))
           (atof (nth (atoi (get_tile (car n))) tmp))
      )
     )
        ((= (type (nth 3 n)) 'sym)
      (set (read (car n))
            (nth (atoi (get_tile (car n))) (eval tmp))
      )
     )
      
     )
    )
      ;
    )
  )
)
  ;_结束defun
  ;;==================================================================*
  (setq TEMPFILENAME (vl-filename-mktemp "dcltmp.dcl"))
  (setq F1 (open TEMPFILENAME "w"))
  
  ;;组织头部
  (setq  STR_JG (strcat
                 "InputBox:dialog {"
                 (strcat "\nlabel ="" STR_DIANAME "";")
               )
  )
  ;;组织正文
  (setq I 0)
  (repeat (length LST)
    (setq N (nth I LST))
    (setq STR_JG (strcat STR_JG
                   (LIST->DCL N )
                 )
    )
    (setq I (1+ I))
  )
  
  ;;组织按钮
  (setq  STR_JG
    (strcat STR_JG
      "\nspacer_0;"
      "\nok_cancel;\n}\n"
    )
  )
  ;;写入文件
  (princ STR_JG F1)
  ;;关闭文件
  (close F1)
  (setq DCLID (load_dialog TEMPFILENAME))
  (if (not (new_dialog "InputBox" DCLID ""))
    (progn (alert "对话框加载失败!") (exit))
  )
  (action_tile
    "accept"
    "(GetInput  Lst ) (done_dialog 1)"
  )
(start_dialog)
  (unload_dialog DCLID)
  (vl-file-delete TEMPFILENAME)
  ;;返回

)(defun c:tt ()
(lea-dcl-init  "图库"
                '(("boxed_column" "文件")
                    ("blockname"  "名称" "list" allfile1 "40" "40");40宽度  40高度  
                    ("}")
                     ("boxed_radio_row" "分类")
                    ("txt" "radio_button" "电气")
                    ("txt" "radio_button" "土建")  
                     ("}")  
                                                                 )
  )       
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 59个

财富等级: 招财进宝

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 14:15 , Processed in 0.377282 second(s), 56 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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