最近很倒霉

/db_自贡黄明儒_

最近很倒霉，这不，前几天喝水，差点哽住了。话说祸不单行，还不止这一件呢。我把自己的倒霉事呈现给大家，让没有遇到这种倒霉事的你开心一下。
第一桩　我定义公用函数(defun EntmakeLine (p1 p2)...在函数(defun C:w1 ()...中调用它。后来我在函数(defun C:w2()..内部定义了(defun EntmakeLine (p1 p2 Layer)。我执行完w2后再执行w1,就不行了，提示EntmakeLine少参数。
第二桩　我双击属性块，就可编辑那个属性。可现在不行了，只能用命令ED,不知道是不是360搞掉了我的什么文件。说明一下：我用的是win7 32位　05英文版cad

/db_自贡黄明儒_

上面说了三件事，祸不单行应该是双数。
  第三桩　我以时间定义(setq name (rtos (* (getvar "CDATE") 1E8)))，执行一段代码后，现以时间作定义块，谁知道运行太快，后面的块把前面的块重新定义了。   我就想了一招，后面的块名改为(setq name (rtos (+ (* (getvar "CDATE") 1E8)　1)))　(setq name (rtos (+ (* (getvar "CDATE") 1E8) 2)))，想问题解决了吧，其实不然，同样的问题。
  想了一下，可能是四舍五入的关系。我把后面块改为(setq name (rtos (+ (* (getvar "CDATE") 1E8) 2)))(setq name (rtos (+ (* (getvar "CDATE") 1E8) 4)))，猜猜问题解决没有？当然没有

/db_自贡黄明儒_

断续解决第三个问题。
我把后面块改为(command "_.delay" 1)(setq name (rtos (+ (* (getvar "CDATE") 1E8) 2))) (command "_.delay" 1)(setq name (rtos (+ (* (getvar "CDATE") 1E8) 4))),这下好了吧，问题解决了吧?当然还是No

/db_自贡黄明儒_

不扯蛋了。最后一个问题是这样解决的(command "_.delay" 2)(setq name (rtos (+ (* (getvar "CDATE") 1E8) 2))) (command "_.delay" 4)(setq name (rtos (+ (* (getvar "CDATE") 1E8) 4)))

HLCAD

;还是会有问题的，最好是：
(setq cnt 1)
(while (tblsearch "block" (setq name (rtos (+ (* (getvar "CDATE") 1E8) cnt))))
(setq cnt (1+ cnt))
)

ll_j

第一个问题是习惯问题，常写程序就应该对公用函数有自己的专属前缀，一种是个人的专属前缀，像院长就是这样，还有就是按程序加前缀，我本人喜欢这样（比如ca:mktext），另一种不用前后缀的方法，就是尽量不用全局函数，几乎所有函数都在主程序运行后定义一次。第二个问题是一个变量控制的：

/db_自贡黄明儒_

ll_j 发表于 2016-4-25 14:22
第一个问题是习惯问题，常写程序就应该对公用函数有自己的专属前缀，一种是个人的专属前缀，像院长就是这样 ...

感谢元老回复。第一个问题不应该呀。第二个问题，05版没有(getvar 'dblclkedit)

ll_j

/db_自贡黄明儒_ 发表于 2016-4-25 14:43
感谢元老回复。第一个问题不应该呀。第二个问题，05版没有(getvar 'dblclkedit)

第一个问题：你检查一下在c:w2中是不是把makwline声明为局部函数了，如果没声明，即使在程序运行时才定义，也还是全局函数。
第二个问题，早期的dblclkedit是一个命令，不是系统变量。

lucas3

如ll_j　所说，还是自己习惯的问题，编程要养成良好的习惯，非通用函数，尽量局部化

newer

在一个函数内部定义的函数，你在外面那个函数变量里面设成局部变量不就影响不到外面的同名函数了吗?

(defun abc()
  (princ "\n1")
)
(defun efg (/ abc)
    (defun abc()
        (princ "\n2")
    )
)
执行
(abc)
(efg)
(abc)
看看结果。

/db_自贡黄明儒_

newer 发表于 2016-4-25 15:53
在一个函数内部定义的函数，你在外面那个函数变量里面设成局部变量不就影响不到外面的同名函数了吗?

(de ...

我一直认为，函数内部定义的函数，不影响外部函数的定义。以前也没有发现，看来还是认识不足。

newer

/db_自贡黄明儒_ 发表于 2016-4-25 16:10
我一直认为，函数内部定义的函数，不影响外部函数的定义。以前也没有发现，看来还是认识不足。

/ 后面的变量 和 函数 是一样的，都是作用域限于这个函数内部。

/db_自贡黄明儒_

newer 发表于 2016-4-25 16:26
/ 后面的变量 和 函数 是一样的，都是作用域限于这个函数内部。

我一直用vlisp编辑器自动提取变量。变量我是知道。不知道函数也应设置成变量。vlisp也不把函数作为变量提取。

lucas3

/db_自贡黄明儒_ 发表于 2016-4-25 16:10
我一直认为，函数内部定义的函数，不影响外部函数的定义。以前也没有发现，看来还是认识不足。

我之前发过一个主题，
http://bbs.xdcad.net/thread-682420-1-1.html

黄大师也参与过，看来是没有认真看啊

/db_自贡黄明儒_

newer 发表于 2016-4-25 15:53
在一个函数内部定义的函数，你在外面那个函数变量里面设成局部变量不就影响不到外面的同名函数了吗?

(de ...

有无编辑器直接提取(defun efg (/ abc)中的abc作为变量？