好吧,你有我直到这里。
- ;;H.LSP SETS LAYER TO HATCH LAYER - THEN ACTAVATES THE HATCH DIALOGE BOX
- ;; TED KRUSH 5/01/02_Zc35
- (defun C:H ()
- (command "undo" "m")
- (setq clay (getvar "clayer"))
- (COMMAND "-LAYER" "T" "hATCH" "M" "HATCH" "C" "10" "HATCH" "")
- ;
- (initdia)
- (COMMAND "_BHATCH")
- (princ)
- ) ;_ end of defun
- (defun C:MV (/ clay)
- (command "undo" "m")
- (setvar "cmdecho" 0)
- (setq clay (getvar "clayer"))
- ;;
- (COMMAND "-LAYER" "M" "VPORT" "C" "51" "VPORT" "P" "N" "VPORT" "")
- ;; ;;
- (COMMAND "MVIEW" pause pause)
- ;;
- (setvar "clayer" clay)
- (princ)
- ) ;_ end of MV.Lsp
- (defun C:DL (/ clay)
- (command "undo" "m")
- (setvar "cmdecho" 0)
- (setq clay (getvar "clayer"))
- (COMMAND "-LAYER" "T" "DIMS" "M" "DIMS" "C" "201" "DIMS" "")
- (COMMAND "-LAYER" "T" "0" "")
- ;;
- (SETQ DSS (GETVAR "DIMSTYLE"))
- (COMMAND "DIMSTYLE" "R" DSS)
- ;;
- (setvar "cmdecho" 1)
- ;;
- (COMMAND "DIMLINEAR" pause pause pause)
- ;;
- (setvar "clayer" clay)
- (princ)
- ) ;_ end of DL.Lsp
它们都不是每个编码五分钟。 最后一个是复制,粘贴并将Dim Liner命令更改为其他维度命令的很好的例子。 我知道你可以有花哨的代码,有6种方式来调用一个命令,并将标准编码到那个命令。 ROI是一种模糊的数学方式,用于查看某些内容,以查看它是否符合您的范式,仅此而已。 如果你正在储蓄一些东西,你仍然在储蓄,无论你是在一年还是20年获得回报。 此外,编码还可以提高一致性和准确性,而不仅仅是节省时间。 您是否查看过要考虑投资回报率的项目? 我有一段代码,它所做的就是画一个实心甜甜圈来连接参考气泡。 它根据当前昏暗的刻度来调整自身大小。 它,它只是促进了一致性,它使我免于思考。
您必须先爬网,然后才能运行。 你正在尝试(通过它的声音)跑马拉松。 我在这里或那里有一点时间;我写了一些东西。 我需要一个压力休息,我编码一些东西或做一些调整。 有一个远距离的目标和地图到达那里,然后婴儿踩它,享受沿着通往目标的路径一侧的风景。
注意上面的代码是快速和肮脏的代码。 它适用于我,没有问题=但哎呀,我是命令行。
如果有人想要一份副本供他们使用或取乐 - 请拥有它。
如果你漂亮地让它变得更好,让我知道,我喜欢学习新方法。
|