求一个完整简洁的示例

lucas3 · 发表于 2014-9-28 16:20:46

Free-Lancer 发表于 2014-9-28 14:04
封装函数都贴过源码，关键部分也有注释
不经过考验代码也不会封装的

嗯，我是指您回复的这个代码中要是有注释就好了，哈哈，要求有点多了！
好的结果是您的代码起到了立竿见影的效果！非常感谢！

tianyou11 · 发表于 2014-9-28 18:03:36

一点即通了。

lucas3 · 发表于 2014-9-29 08:14:28

本帖最后由 lucas3 于 2014-10-4 19:24 编辑

Free-Lancer 发表于 2014-9-28 03:45

Free-Lancer大师，文字字高要怎么记忆呢？对话框中的key是e03, 跟e03有关的只有两句， (set_tile "e03" (rtos (* bi 4) 2 1)) 与 (action_tile "e02" "(setq bi ( * 0.25 (atof (get_tile \"e03\"))))(done_dialog )")

Free-Lancer · 发表于 2014-10-1 15:50:02

lucas3 发表于 2014-9-29 08:14
Free-Lancer大师，这个贴子中 http://bbs.mjtd.com/thread-110581-1-1.html 的文字字高，要怎么记忆呢？ ...

增加一个 action, 同时在局部变量表中将 bi 删除

(action_tile "e03" "(setq bi (distof $value))")

lucas3 · 发表于 2014-10-1 16:19:11

Free-Lancer 发表于 2014-10-1 15:50
增加一个 action, 同时在局部变量表中将 bi 删除

(action_tile "e03" "(setq bi (distof $value))")

大师，能说详细点吗？你知道我不懂的

Free-Lancer · 发表于 2014-10-1 16:32:43

lucas3 发表于 2014-10-1 16:19
大师，能说详细点吗？你知道我不懂的

如图

lucas3 · 发表于 2014-10-1 17:09:45

Free-Lancer 发表于 2014-10-1 16:32
如图

谢谢Free-Lancer大师！非常感谢！

lucas3 · 发表于 2014-10-4 19:32:43

Free-Lancer 发表于 2014-9-28 03:45

[pcode=lisp,true](if (not $globle_layer)
  (setq $globle_layer (getvar "clayer"))
)
(defun c:tt (/ strl fn id lyrlst)
  (setq       strl '("layer:dialog {"
               "label = \"Select Layer\" ;"
               ":list_box { key = \"lyr\" ;  label = \"Layer\" ;}"
               "ok_cancel;"
               "}"
            )
      fn    (dcl:make strl)
      id    (dcl:load fn "layer")
      lyrlst (table "layer")
  )
  (dcl:addlist
"lyr"
lyrlst
(vl-position $globle_layer lyrlst)
  )
  (dcl:listaction "lyr" 'lyrlst '$globle_layer)
  (dcl:accept)
  (dcl:start id fn)
  (princ)
)
(defun dcl:listaction (key lst sym)
  (action_tile
key
(strcat "(setq "
         (vl-symbol-name sym)
         " (nth (atoi $value) "
         (vl-symbol-name lst)
         "))"
)
  )
)
(defun table (name / l nm lst)
  (while (setq l (tblnext name (not l)))
(if       (setq nm (cdr (assoc 2 l)))
   (setq lst (cons nm lst))
)
  )
  (acad_strlsort lst)
)[/pcode]

Free-Lancer大师，晚上好！还有一个跟此主题有关的问题请教，假如，想要使默认的不为0层，而为图层1（注：图层1是存在的），还要加点什么进去呢？记忆功能还是不变，比如，运行后，默认选中的图层为图层1 ，当选择图层2后，下次打开还是图层2

Free-Lancer · 发表于 2014-10-4 20:05:19

(if (not $globle_layer)
(setq $globle_layer "图层1")
)

lucas3 · 发表于 2014-10-4 20:49:11

Free-Lancer 发表于 2014-10-4 20:05
(if (not $globle_layer)
(setq $globle_layer "图层1")
)

谢谢大师！明白了！{:soso_e181:}

lucas3 · 发表于 2014-10-4 21:18:44

Free-Lancer 发表于 2014-10-4 20:05
(if (not $globle_layer)
(setq $globle_layer "图层1")
)

大师，那如果是在LIST中呢？，如下代码，在*BSPVALUES*中

(setq LAYERS (TABLELAYERS))
(setq STYLES (MAPCAR 'CAR LST))
(if *BSPVALUES*
(progn
(MAPCAR 'SET_TILE '("ths" "thl" "thl2" "cl" "cll" ) *BSPVALUES*)
(if (EQ "0" (NTH 3 *BSPVALUES*))
(MAPCAR 'MODE_TILE '("cll" "zxxc") '(1 1))
)
)
)

csharp · 发表于 2014-10-4 21:56:32

看程序一个dcl:listaction完成 add_list 设置默认、定义 action

参数一为列表变量名，加 '
参数二为记录默认值的变量名, 加 '

lucas3 · 发表于 2014-10-5 00:05:13

csharp 发表于 2014-10-4 21:56
看程序一个dcl:listaction完成 add_list 设置默认、定义 action

参数一为列表变量名，加 '

不明白啊，需要示列代码 :Q

lucas3 · 发表于 2014-10-5 18:59:30

Free-Lancer 发表于 2014-10-4 20:05
(if (not $globle_layer)
(setq $globle_layer "图层1")
)

Free-Lancer大师， 26楼的问题该怎么办呢？能解决吗？

csharp · 发表于 2014-10-5 21:32:37

lucas3 发表于 2014-10-5 18:59
Free-Lancer大师， 26楼的问题该怎么办呢？能解决吗？

每个 list. 要有一个表用来填充，再有一个变量设置默认及记录选择

账号		自动登录	找回密码
密码			立即注册

[已解决] 求一个完整简洁的示例

点评

点评

点评

点评

评分

点评

点评

点评

点评