[LISP程序]：线变虚线的命令（绝好命令）

papayaa

1。线变虚线chdash
2。变线形比例chltyp

用APPLOAD加载就可以使用了。如要修改命令，打开该LISP文件，在defun c:chdash,作改动就可以了。

咱也收一个币，以前从没收过，大家别有意见啊。反映好的话，咱还有好命令。

userzhluserzhl

楼主，请发上来呀，我正急需！！！能不能编个改变物体图层,但不改变其颜色的LSP!

papayaa

程序在这里

userzhluserzhl

楼主，不行呀！请选取要变换线型的图元 <退出>:
选择对象: 指定对角点: 找到 5 个

选择对象:  ; 错误: no function definition: GETSS

zhynt

文件中少加了一个自定义的函数“ｇｅｔｓｓ”
看样子好像还需要“ｇｅｔｃｄ”函数

userzhluserzhl

可不可以改一下，再重新上传！

papayaa

大家等一下啊。今天太晚了，先用其他几个小程序弥补一下大家。


;自动删除
(defun c:e ()
       (command "erase" "single")
       (princ)
)

;自动清除
(defun c:q()
(command "purge" "all" "" "n")
(princ)
)

;水平无限延长线
(defun c:hh ()
       (command "xline" "h")
       (princ)
)
;竖直无限延长线
(defun c:vv ()
       (command "xline" "v")
       (princ)
)

;组开关
(defun c:ggg (/ gp)
  (setq gp (getvar "pickstyle"))
  (if (= GP 1)
         (progn
           (setvar "pickstyle" 0)
           (princ "\n关闭组")
         )
     (progn
         (setvar "pickstyle" 1)
         (princ "\n打开组")
      )
   )
  (princ)
)


;小程序
(DEFUN C:acad () (COMMAND "MENU" "ACAD") (PRINC))     
(DEFUN C:ZA () (COMMAND "ZOOM" "A") (PRINC))  
(DEFUN C:ZD () (COMMAND "ZOOM" "D") (PRINC))
(DEFUN C:ZE () (COMMAND "ZOOM" "E") (PRINC))

zhynt

晕！！！原来是天正３里的ｌｓｐ。没装天正的朋友是无法用的。因为要用到天正的函数库。
比如里面的getss、getcd、xdin等。

以后发这样的程序请说明出处。

突然空闲

最初由 zhynt 发布
[B]以后发这样的程序请说明出处。 [/B]

人家是才学的lisp，什么叫“函数库”恐怕也不知道。
实线该虚线也要另加程序？天晓得

guangshunsong

编程制图，以后咱也得好好学学阿

秀秀20032002

要使實線變虛線，也可以用ch這個屬性命令啊，改變線的類型和比例就可以了啊

userzhluserzhl

楼上的朋友能不能编个出来,还有类似的就是:LSP一个命令就能把物体改到指定层的!

秀秀20032002

我是沒有編啊，因為我是剛學不久的啊，還沒有那個能力，你教我啊。不過有現成的也可以用現成的嘛，不一定要再去麻煩編一個了啊！

11493909

还是用方法　习惯一点，，还是谢谢

userzhluserzhl

楼上的朋友，我总是要把对话框关掉才能执行，要在中间加什么，对话框能自动关掉？