[求助]：问函数initget的使用方法

似水无痕

请问各位大侠，函数initget的使用说明提示：
当bits值为32时：用虚线绘制拖引线或拉伸方框(有些屏幕则以其他颜色来取代虚线)。如果系统变量POPUPS为零, 则表示显示器驱动程序并没有支持高级用户界面, 那么AutoCAD将会忽略此位。
但我将位值设置为32时，为什么在程序后用getcorner命令时，显示边框仍为实线？
还有，系统变量popups值如何设置为0？我在设置时出现以下提示：命令: popups
POPUPS = 1 (只读)
感谢各位！

aeo

(只读)就是不能改写.

试试，我机器可以:
(setq p1(getpoint))
(initget 32)
(getcorner p1)

似水无痕

非常感谢aeo斑竹！！！
你写的我试了一下，可以！
以前我自己编写了一个多行文字的小程序，怎么我加上(initget 32)语句后还是不行，我传上来老兄帮我看一看（可能程序太幼稚，不要笑话），呵呵！
再次感谢（发自肺腑）！！！
(defun c:mmtext        (/ basepoint endpoint height string)
  (setvar "CMDECHO" 0)
  (initget 32)
  (setq basepoint (getpoint "\n输入第一角点："))
  (setq endpoint (getcorner basepoint "\n输入第二个角点："))
  (if (/= x_height nil)
    (progn
      (princ "\n输入文字高度或默认")
      (princ "<")
      (princ x_height)
      (princ ">:")
      (setq height (getstring))
    )
    (setq height (getstring "\n输入文字高度："))
  )
  (setq string (getstring "\n请输入创建的文字："))
  (if (= height "")
    (setq height x_height)
    (setq x_height height)
  )
  (setq height (atof height))
  (command "mtext" basepoint "j" "mc" "h" height endpoint string "")
  (princ)
)

xyp1964

也不行！
根据帮助：当这些函数允许用户指定一点时, 导致橡皮筋(rubber band) 显示窗口时使用虚线(有些屏幕则以其他颜色来取代虚线)。如果系统变量POPUPS为零, 则表示显示器驱动程序并没有支持高级用户界面, 那么AutoCAD将会忽略此位。

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. (defun c:mmtext        (/ basepoint endpoint)
    
16.   (cmdla0)
    
17.   (initget 32)
    
18.   (setq        basepoint (getpoint "\n输入第一角点 : ")
    
19.         endpoint  (getcorner basepoint "\n输入第二个角点 : ")
    
20.         height          (UREAL 7 "" "\n输入文字高度" height)
    
21.         string          (USTR 7 "\n请输入创建的文字" string NIL)
    
22.   )
    
23.   (if string
    
24.     (command "mtext" basepoint "j" "mc"        "h" height endpoint string "")
    
25.   )
    
26.   (cmdla1)
    
27. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> (defun c:mmtext        (/ basepoint endpoint)<br />   (cmdla0)<br />   (initget 32)<br />   (setq        basepoint (getpoint "\n输入第一角点 : ")<br />         endpoint  (getcorner basepoint "\n输入第二个角点 : ")<br />         height          (UREAL 7 "" "\n输入文字高度" height)<br />         string          (USTR 7 "\n请输入创建的文字" string NIL)<br />   )<br />   (if string<br />     (command "mtext" basepoint "j" "mc"        "h" height endpoint string "")<br />   )<br />   (cmdla1)<br /> )[/FONT]

似水无痕

xyp1964 兄的程序简洁明了，不愧为斑竹，高手！！！
好像也还不能实现虚线功能？

xyp1964

最初由 似水无痕 发布
[B]xyp1964 兄的程序简洁明了，不愧为斑竹，高手！！！
好像也还不能实现虚线功能？ [/B]

2. [FONT=courier new](defun c:mmtext        (/ pt1 pt2)
   
3.   (cmdla0)
   
4.   (setq pt1 (getpoint "\n输入第一角点 : "))
   
5.   (initget 32)
   
6.   (setq        pt2 (getcorner pt1 "\n输入第二个角点 : ")
   
7.         th  (UREAL 7 "" "\n输入文字高度" th)
   
8.         str (USTR 7 "\n请输入创建的文字" str NIL)
   
9.   )
   
10.   (if str
    
11.     (command "mtext" pt1 "j" "mc" "h" th pt2 str "")
    
12.   )
    
13.   (cmdla1)
    
14. )[/FONT]

[FONT=courier new](defun c:mmtext        (/ pt1 pt2)<br />   (cmdla0)<br />   (setq pt1 (getpoint "\n输入第一角点 : "))<br />   (initget 32)<br />   (setq        pt2 (getcorner pt1 "\n输入第二个角点 : ")<br />         th  (UREAL 7 "" "\n输入文字高度" th)<br />         str (USTR 7 "\n请输入创建的文字" str NIL)<br />   )<br />   (if str<br />     (command "mtext" pt1 "j" "mc" "h" th pt2 str "")<br />   )<br />   (cmdla1)<br /> )[/FONT]

ll_j

Initget 函数功能是“为随后的用户输入函数调用创建关键字”，在Help中有说明：[B]“initget 函数的位编码值与关键字表仅对紧随其后的那个用户输入函数有效”[/B]。
楼主及xyp前面的程序中Initget函数的位置有误，aeo斑竹的次序是正确的。

似水无痕

谢谢aeo斑竹和xyp1964斑竹，谢谢ll_j 长老，受教了！
三位可否留下联系方式，以便随时请教？
我的EMAIL：xuefeng0323.student@sina.com
QQ：63780342
如需要我帮忙，随时效劳！